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Abstract 


/ 

/^This  research  eH 


■  ^This  research  effort  was  diractad  towards  davaloping 
a  flexible,  operationally  oriented  methodology  to  assess 
the  effect! vanass  o-f  conventional  weapons.  Ease  of  use  has 
bean  stressed,  to  enable  aircrews  and  weapons  experts  to 
use  the  methodology. 

The  methodology  centers  on  an  interactive  computer 
program,  AAPMOD,  that  simulates  a  user- defined  attack 
against  a  user- defined  target.  The  program  is  a  derivative 
of  Attack  Assessment  Program,  originally  developed  by  the 
University  of  Oklahoma  for  the  Joint  Technical  Coordinating 
Group  for  Munitions  Effectiveness.  This  study  provided  the 
program  interactive  capability,  improved  its  structure  by 
adding  Fortran  V  constructs,  and  developed  a  data— input 
program^  AAPlW^  to  provide  laundered  input  files  for  AAPMOD. 

Program  outputs  include  probabilities  of  cutting 
surfaces  and  denying  aircraft  operations,  as  well  as 
expected  values  for  number  of  hits  and  area  damaged. 

Validity  and  capability  of  AAPMOD  are  demonstrated  in 
a  three  factor,  two  level  statistical  experiment.  The 
experiment  consisted  of  an  airfield  attack,  with  associated 
discussion  of  effects  of  the  three  factors. 
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I .  Introduction 

This  study  Mill  determine  ths  effectiveness  of  a 
modern,  fighter— attack  aircraft,  delivering  conventional 
munitions  against  a  runway.  The  measure  of  eff ectiveness 
is  the  probability  the  aircraft  denies  the  clear  length  and 
width  of  runway  surface,  required  for  take-off  and  land 
operations. 

Background 

Tactical  aviation  is  a  vital  part  of  the  firepower 
the  United  States  can  muster  against  an  enemy.  Also  called 
tac  air,  the  intrinsic  characteristics  of  tactical  aviation 
include  elements  of  surprise,  mass,  and  even  flexibility. 
Given  that  the  enemy  will  choose  the  time  and  place  of  the 
next  conflict,  tactical  air  power  offers  fast,  concentrated 
response  to  aggression,  and  offers  in-place  ground  units  a 
better  chance  to  maintain  position  until  reinforcements 
arrive. 

As  with  all  resources,  the  availability  of  tac  air  is 
limited.  Furthermore,  modern  air  power  faces  an  increas¬ 
ingly  sophisticated  enemy  defense  network.  In  recent  years 
potential  enemies  have  improved  air  defense  networks  with 
the  deployment  of  new  missiles,  guns,  radars,  and  aircraft. 
Along  with  these  deployments  has  been  the  employment  of  a 
now  command  and  control  system.  (Ref.l5:l?> 

The  allocation  of  the  limited  resources  of  tactical 
air,  throughout  the  hostile  arena,  is  therefore  a  decisive 
•lament  in  the  success  of  combat  operations.  And  the  task 
is  not  easy. 
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For  ex amp 1  e ,  consider  the  European  theater.  The 
commanders,  whether  assigned  to  USAFE  or  NATO,  allocate 
their  aircraft  in  three  phases:  1) identification  of 
targets*  2)prioritization  of  targets,  and  finally,  3)the 
assignment  of  assets  against  the  targets.  Each  phase 
will  be  briefly  discussed. 

There  are  several  ways  to  identify  targets.  Prior  to 
conflict,  intelligence  personnel  can  study  potential 
hot-spots  and  identify  targets  of  obvious  military  value. 
Munitions  or  tactics  experts  can  then  recommend  particular 
attack  options.  Such  preparation  can  permit  development  of 
preplanned  attacks,  and  save  valuable  time  when  the  war 
breaks  out.  Similarly,  during  the  fight,  planners, 
aircrews,  intelligence  sources,  or  even  the  battlefield 
commander  can  recommend  additional  targets.  But,  as  the 
list  grows,  it  soon  exceeds  the  number  of  aircraft 
available  to  cover  the  targets.  This  target-rich  situation 
requires  that  commanders  prioritize  targets. 

Prioritization  occurs  when  a  commander  decides  which 
targets  should  be  attacked  first.  But  target  priorities 
are  dynamic,  and  influenced  by  perspective.  For  example: 

1)  The  Army  commander,  repelling  an  armor  assault, 
thinks  the  attacking  column  has  highest  priority. 

2)  The  commander  at  Ramstein  thinks  24  FLOQSER’s 
massing  in  western  Czechoslovakia  have  the  highest 
priority. 

3)  All  agree  that  denial  of  chemical  or  nuclear 
potential  is  a  high  priority  at  all  times. 

Regardless,  targets  should  be  struck  in  such  an  order 
that  they  maximize  the  damage  inflicted  on  th o  rneay,  and 
minimize  the  damage  inflicted  by  th*  *n*»y. 

Xn  the  past,  priori tization  has  been  an  art.  But 
today,  it  can  more  properly  be  termed  a  science.  Rigorous 
techniques,  developed  under  the  broad  spectrum  of 
apormtions  rosomrch,  are  frequently  applied  to  military 


decision  making  or  problem  solving.  Some  of  these  tech¬ 
niques  have  included  network  theory,  applied  to  aircraft 
movements,  various  types  of  programming  methods,  applied 
to  weapon  buys  and  prioritization  processes,  and  computer 
simulations  of  nearly  all  phases  of  combat  operations. 

This  thesis,  itself,  applies  one  of  the  tools  of  operations 
research,  computer  modeling,  to  the  last  phase  of  the 
allocation  process:  resource  assignment. 

The  last  phase  of  the  allocation  process  is  to  assign 
a  specific  weapon  system  to  a  specific  target.  Experience 
shows  that  thorough  analysis  is  sometimes  absent  from  this 
phase.  Understandably,  the  crisis  of  the  situation  may 
inhibit  logical,  optimum  allocation.  But  at  other  times, 
aircraft  are  merely  assigned  targets  based  on  geographical 
sectors:  this  wing  covers  the  targets  of  that  sector. 
Although  range  or  other  performance  characteristics  must 
influence  allocation  decisions,  the  convenient  grounds  of: 

"...  the  only  one  available  ..." 

should  not.  Each  type  of  aircraft  has  its  own  performance 
advantages  and  capabilities,  as  well  as  disadvantages  and 
limitations.  For  example,  one  aircraft  may  have  poor 
maneuverability,  but  excellent  payload  capacity.  Another 
may  offset  small  payloads  with  high  accuracies.  To  arbi¬ 
trarily  assign  a  weapon  system  against  a  target,  without 
considering  the  effectiveness  of  the  aircraft  against  the 
target  is  absurd.  It  can  negate  the  efforts  of  the 
previous  phases,  and  can  contribute  to  unnecessary  loss  of 
life  or  other  valuable  assets. 

Some  of  the  methods  of  operations  research  (OR)  may 
serve  to  reduce  the  effort  associated  with  the  allocation 
process.  These  methods  may  also  enhance  the  results  of  the 
process.  The  rest  of  this  chapter  will  develop  the  frame¬ 
work  within  which  modern  OR  can  improve  United  States 


defense  capabilities 


Qotrationa  Research.  Operations  Research  tries  to 
blend  the  skills  o-f  many,  varied,  science  and  military 
experts  and  optimize  our  defense  capabilities.  The  first 
use  of  OR  dates  back  to  1943. 

During  World  War  II,  British  and  American  scientists 
tried  to  describe  and  predict  the  way  two  armies  act.  They 
modeled  the  allocation  of  scarce  resources,  and  contributed 
to  Allied  victories  in  several  campaigns:  such  as  the  Air 
Battle  of  Britain,  and  the  Island  Campaign  in  the  Pacific. 
(Ref .9:3) 

Today,  nearly  every  level  of  command  in  the  U.S.  Air 
Force  has  an  operations  research  branch,  even  though  the 
size  of  the  branch  may  vary.  For  example,  Air  Force 
Headquarters  has  a  192— person  Studies  and  Analysis  Division 
(AF/SA) .  On  the  other  hand,  a  typical,  tactical  fighter 
squadron  (TFS)  might  have  only  a  3— person,  additional -duty, 
plans  and  analysis  working  group.  Nevertheless,  both 
organizations  provide  decision  support  to  their  commander. 
AF/SA  analyzes  major  weapon  system  alternatives,  or  perhaps 
force  employment  plans,  while  planners  in  the  TFS  optimize 
delivery  tactics  when  two  or  three  aircraft  attack  a 
target. 

Some  indications  suggest,  however,  that  current 
analysis  techniques  may  fall  short  of  their  full  potential. 
For  example,  during  an  exercise  in  Europe,  Headquarters, 
United  States  Air  Forces  Europe  (USAFE) ,  tasked  a  fighter 
wing  to  plan  suppression  of  an  enemy  airbase.  USAFE 
limited  the  number  of  aircraft  to  be  used  for  the  attack. 
Intelligence  personnel  and  weapons  experts  hastily  worked 
to  develop  an  optimal  attack  plan.  They  targeted  storage 
sites,  defense  positions,  repair  facilities,  and  the 
runway.  But  before  submitting  the  plan,  the  commander 


wanted  iom  experienced  aircrews  to  verify  the  plan.  The 
crews  questioned  the  feasibility  of  targeting  two  aircraft 
against  an  enemy  runway.  The  planners  responded  that  only 
two  sorties  were  left  after  "optimal"  targeting,  and  they 
decided  som*  damage  to  the  hardened  runway  was  better  than 
none. 

Zs  it? 

Should  a  commander  risk  damage  to,  or  loss  of,  two 
aircraft  and  crews  to  attack  the  runway? 

Another  indication  reflects  an  even  higher  level  of 
authority.  In  a  recent  lecture  at  AFIT,  Brigadeer  General 
Wilfred  L.  Goodson,  Assistant  Chief  of  Staff,  Studies  and 
Analysis,  Headquarters,  USAF,  expressed  dissatisfaction 
with  the  current  approach  of  models  used  in  analysis. 
(Modeling  is  a  frequent  tool  of  analysis.  Models  quantify 
often  elusive  characteristics  of  a  system,  and  the  numbers 
are  used  to  develop  mathematical  relationships,  describing 
the  system.)  General  Goodson  feels  that  today’s  theater- 
level  warfare  models  lack  proper  sensitivity  to  new  data. 
(Ref. 9)  For  example,  if  analysts  input  a  new  capability  to 
their  model,  they  usually  do  not  adjust  the  enemy’s 
response  to  the  change.  While,  in  reality,  if  a  capability 
enters  a  theater  prior  to  conflict,  opponents  will  attempt 
to  deny  the  advantages  of  the  new  system.  They  will 
develop,  purchase,  or  deploy  counter -weapons,  or  tactics. 
Likewise,  da ring  conflict,  both  sides  adjust  tactics  and 
strategies  in  response  to  daily  developments:  their  own 
effectiveness,  or  perhaps  an  enemy’s  surprise  system. 

But,  according  to  experts,  most  models  do  not  make 
such  adjustments.  (Ref. 5)  In  essence,  most  models  are 
inadequately  sensitive  to  parameter  changes.  They  do  not 
modify  target  values,  which  in-turn  modify  strategies.  Such 
modification  requires  a  recursive,  dynamic  model  design:  a 
design  difficult  to  achieve  because  it  requires  a  well 
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da-fined  system  of  target  values.  And  yet,  according  to 
other  experts,  sensitivity  analysis  is  crucial  to  theater — 
level  models.  (Ref. 10: 132)  No  model  could  possibly  portray 
war  in  all  its  complexity.  Rather,  models  of  theater-level 
warfare  should  be  used  to  examine  elternetive  systems, 
tactics,  or  force  structures.  (Ref. 10: 132)  And  so,  the 
models  should  be  sensitive  to  attribute  modifications. 

Finally,  the  last  evidence  supporting  the  inadequacy 
of  modern  analysis  appeared  in  the  tear  sheet  of  a  1980, 
Comptroller  Seneral’s  Report  to  the  Congress: 

A  major  contention  of  this  report  is  that 
quantitative  techniques  have  considerable 
potential  as  an  aid  in  the  analysis  of  public 
policy  issues,  but  that  this  potential  is 
impaired  by  the  current  design  and  management 
of  quantitative  tools.... 

From  a  scientific  point  of  view,  the  present 
"understanding  of  war" — insofar  as  the 
effectiveness  of  conventional  military  forces 
is  concerned — i s  in  relatively  primitive 
state.  Basic  research  aimed  at  understanding 
the  fundamentals  of  combat  is  needed,  but 
quantitative  or  numerical  techniques  have  not 
been  systematically  applied  to  achieve  these 
discoveries.  (Ref.l7:ii) 


Consider  runways  again.  How  do  the  above  ideas 
relate  to  runways?  How  does  a  decision  maker  answer  the 
following  questions:  What  is  the  value  of  a  runway?  Of 
what  value  is  the  damage  two  aircraft  might  inflict  on  a 
runway?  How  about  four  aircraft?  Eight?  More? 

The  ultimate  answers  to  these  questions  are  beyond 
the  methodology  of  this  study.  Nevertheless,  their 
discussion  validates  the  need  to  develop  the  low-order, 
responsive,  informative,  targeting  analysis  described  in 
this  thesis.  Although  this  analysis  can  not  specifically 
assign  target  values,  the  study  will  help  define  the  level 


of  danagc  that  two,  or  four,  or  sight  aircraft  can  inflict 
on  a  runway. 

Problem  Statement 

Currant,  operationally  oriented,  targeting  analysis 
methods  do  not  clearly  illustrate  the  relationship  between 
applied  attack  effort  and  target  damage  response. 

Research  Method 

In  response  to  the  problem  statement,  this  thesis 
will  establish  a  methodology  to  rate  the  effectiveness  of 
different  elements  of  tac  air  against  different  targets. 

The  methodology  is  examined  within  the  framework  of 
determining  the  effectiveness  of  a  conventional  attack 
against  one  type  of  target:  runways.  Of  course,  the 
methodology  can  be  extended  to  cover  the  gamut  of 
systems-target  combinations,  and  valid  comparisons  of 
system  effectiveness  can  be  made. 

Decision  makers  should  implement  these  analyses 
before  future  conflicts  erupt.  Such  preparation  can  afford 
greater  overall  effectiveness  in  the  allocation  of  tac 
air.  (NOTE:  For  purposes  of  this  report,  weapon  system 
implies  not  only  a  type  of  aircraft,  such  as  F-lll  or  F-16, 
but  also  a  specific  weapons  load  and  delivery  tactic.  And, 
to  avoid  compromise,  generic  aircraft  and  generic  weapons 
data  will  be  used . ) 

Qfelectives  Solution  of  the  problem  statement  lies 
in  developing  an  easy,  clear  methodology  to  relate  given 
levels  of  attack  effort  to  the  damage  the  attack  can 
produce.  Such  development  suggests  the  following  three 
objectives: 


1)  Develop  a  Method  to  relate  an  attack  to  its 
expected  damage  results. 

2)  Define  the  significant  factors  affecting  damage 
expectancies. 

3)  Develop  a  concise*  clear  method  of  presentation  of 
results. 

Methodology  The  methodology  of  this  research  follows 
from  the  objectives.  A  model  will  be  developed  to  relate 
attack  effort  to  expected  damage. 

Experience  recommends  a  simulation  over  an  analytical 
solution.  As  will  be  presented  in  Chapter  111,  the  system 
of  an  airfield  attack  includes  many  complex  interactions  of 
numerous  stochastic  variables.  And  it  was  felt,  that  a 
purely  mathematical  analysis  of  expected  value  is  beyond 
the  scope  of  this  research. 

The  completed  model  will  be  exercised  in  an  experi¬ 
ment  to  demonstrate  its  operation  and  capability.  The 
experiment  will  focus  on  three  of  the  factors  under  aircrew 
control  when  planning  an  airfield  attack.  Manipulating 
these  factors  will  provide  data  for  the  effectiveness  study 
described  above,  as  wel 1  as  suggest  the  influence  of  the 
factors  on  system  effectiveness. 

Finally,  the  results  of  the  effectiveness  study  will 
be  clearly  graphed.  A  series  of  these  types  of  charts  can 
be  developed  for  possible  use  by  aircrews  during  attack 
planning. 

This  chapter  has  developed  the  need  to  improve  the 
methods  for  the  optimal  targeting  of  the  limited  assets  of 
United  States  air  power.  The  chapter  recommends  seeking 
solution  within  the  science  of  operations  research.  The 
chapter  summarized  the  problem  at  hand  in  a  concise,  clear, 
and  limited  statement,  and  proceeded  to  describe  the 
research  effort  designed  to  correct  the  problem.  Chapter 
ZZ  will  discuss  some  of  the  earlier  works  preparing  the  way 
for  this  thesis. 
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II.  Previous  Studies 


By  no  Mans  is  this  the  -first  study  to  identify  the 
requiraeent  to  improve  tacticians*,  aircrews’,  and 
cnaeinders*  understand! ng  of  the  relationship  between 
aerial  attack  efforts  and  target  damage  results.  Projects, 
programs,  and  literature  have  addressed  the  issue,  and  this 
thesis  will  draw  on  those  works  and  apply  them  to  the 
methodology  required  to  satisfy  the  problem  statement  of 
Chapter  I.  This  chapter  will  highlight  both  strong  and 
weak  areas  of  some  of  these  earlier  works. 

IhtitirzWtyfl  Bacfaca  Badala 

In  1967,  Air  Force  Studies  and  Analysis  developed  a 
tactical  air  warfare  model,  or  TAWM,  with  a  recursive,  and 
dynamic,  simulation  concept.  In  other  words,  given  a 
change  to  the  model  data,  the  change  itself  could  cause 
other  changes  in  the  model.  The  model  used  a  novel 
methodology  that  begins  with  the  lmst  day  of  the  war,  and 
moves  backwards.  The  model  optimizes  each  day,  back 
through  DAY-1.  Optimization  for  the  future  occurs  each 
day,  regardless  of  the  course  of  events  followed  to  arrive 
at  the  current  day. 

It  has  been  suggested,  however,  that  a  new  and  more 
responsive  model  far  theater  warfare  be  developed.  (Ref. 5) 
An  important  concept  of  the  new  model,  call  it  TAWM84, 
will  be  the  value  of  target  damage.  Once  the  many, 
continuous  levels  of  target  damage  are  quantified,  TAWM84 
will  optimize  warfighting  strategy.  The  model  will  find 
the  optimal  return  for  investing  the  available  attack 
resources. 
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But  first,  sub— models  must  clarify  ths  relationship 
between  level  of  attack  and  specific  target  damage.  And 
value  must  be  quantified. 

The  concensus  of  literature,  though  perhaps  argued  by 
some  fighter  pilots,  is  that  the  only  vaiae  of  air  power  is 
in  support  of  the  ground  battle.  With  minor  variation, 

both  versions  of  TAWM  use  the  fallowing  categories  of  air 
support: 

1)  attack  aircraft  on  enemy  airfields) 

2)  defend  friendly  airfields  from  enemy  attack) 

3)  defend  the  airspace  over  the  battlefield)  and, 

4)  participate  in  combat  air  support. 

Only  combat  air  support  might  need  further 
definition.  Combat  air  support  is  basically  ground 
support .  Combat-air  takes  air  power  to  the  enemy.  As  the 
ground  commander  maneuvers  and  employs  organic  firepower 
against  the  enemy,  combat-air  provides  additional  aerial 
firepower.  The  targets  of  combat-air  include  war-fighting 
capability  on  the  battlefield,  such  as  vehicles,  armor,  or 
troops.  The  gargets  can  also  include  the  enemy’s  means  to 
bring  these  capabilities  to  the  fight:  roads,  rails,  and 
bridges. 

Both  versions  of  the  model  use  game  theory.  The  vela* 
of  air  power  is  defined  as  support  of  ground  operations. 

The  payoff  of  the  "game”  is  defined  as  the  difference 
between  the  combat-air  ordnance  delivered  by  the  opposing 
sides.  The  models  use  tonnage  of  ordnance,  delivered  in 
combat  support,  to  measure  value.  Note  how  each  category 
above,  can  contribute  to  this  overall  measure: 

1)  attack  aircraft — denies  enemy  potential) 

2)  defend  friendly  airfields— prevents  loss  of 

friendly  potential) 

3)  defend  airspace — again,  both  denies  enemy 

potential  and  preserves  friendly  potential)  and 


TACTICAL  AIR  WARFARE  MODEL 


ATTACK  AIRCRAFT 
ON  ENEMY  AIRFIELDS 


DEFEND  AIRFIELDS  A6AINST 
ENEMY  AIR  ATTACK 


DEFEND  THE  AIRSPACE 
ABOVE  THE  BATTLEFIELD 


COMBAT  AIR  SUPPORT 
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DEFEND  AIRFIELDS  ASAINST 
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PAYOFF 


Figure  1  Overall  Concept  of  Theater  Air  Warfare  Model, 
1967.  (Ref .5) 
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Figure  2 


letails  of  Air  Operations.  (Ref. 5) 


4)  combat  air  support — ths  direct,  numerical,  tonnage 

contribution. 

Ths  concept  of  TAWM  is  to  normalize  air  operations  by 
relating  the  contribution  of  each  category  of  air  operation 
to  the  payoff  of  the  game:  the  difference  between  friendly 
and  enemy  tonnage.  With  this  design,  changes  to  model 
inputs,  such  as  improved  weapon  accuracy  or  higher  relia¬ 
bility,  can  cause  changes  in  values.  It  can  cause  a  change 
in  the  relationships  between  effort  and  damage.  Analysts 
may  then  measure  the  relative  merit  of  one  target  over 
another. 

Figure  1  depicts  the  overall  model.  Figure  2  details 
the  specific  tasks  associated  with  the  three  categories  of 
the  1984  proposal.  Figure  2  also  highlights  a  minor 
difference  between  the  1967  and  1984  models:  three 

categories  of  operations,  rather  than  four.  These  new 
categories  are  as  follows: 

1)  destroy  enemy  potential I 

2)  save  friendly  potential I  or, 

3)  participate  in  combat  air  support. 

One  other  theater-level  warfare  model  built  by  AF/SA 
in  1974-1973,  is  TAC  WARRIOR.  TAC  WARRIOR  bears  close 
resemblance  to  TAWM,  in  both  concept  and  design.  To 
determine  air-to-ground  effectiveness,  TAC  WARRIOR  uses  a 
sub-model,  BLUE  MAX.  And  BLUE  MAX  uses  Joint  Monitions 
Effectiveness  Menuel  techniques  to  compute  effectiveness  of 
weapons  delivery.  However,  TAC  WARRIOR  may  be  too  big.  It 
may  be  too  complex  to  perform  the  level  of  analysis 
required  to  correct  the  problem  of  Chapter  I.  Problem 
solution  does  not  require  the  extensive  capability  of 
theater-level  warfare  models,  and  in  fact,  solution  of  the 
problem  in  Chapter  I  can  contribute  data  to  these  more 
extensive  models. 


Lrtr.' 
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Targeting  Works 


The  Joint  Munitions  £f fectiveness  Men  ami  (JMEM)  is  a 
classified  coll  set  ion  of  tsrgst  and  weapons  data.  JMEII 
provides  a  targeting  methodology.  Written  and  revised 
several  times  since  1975,  JMEM  does  not  optimize  aim- 
points.  Rather,  the  JMEM  method  is  mechanical.  The 
planner  enters  charts  and  graphs  with  categorical  param¬ 
eters  of  target  characteristics,  delivery  parameters,  and 
desired  damage  and  confidence  levels,  and  determines  the 
number  of  sorties  required  to  achieve  a  desired  level  of 
damage. 

JMEM  is  convenient  for  weaponeer ing  a  point-target, 
like  trucks  or  buildings.  It  can  quickly  solve  a  task  such 
as:  destroy  a  SAM  <surf ace-to— air  missile)  site  with  75% 
probability  of  success. 

Agencies  have  recently  begun  funding  purchase  of 
software  based  on  the  JMEM  methods.  Notably,  magnetic  cards 
with  stared  JMEM  routines  are  available  for  both  the  TI-59 
and  the  handheld  calculators.  Also,  several  versions 

of  JMEM  programs  exist  for  both  WANS  and  Hewl i tt-Packard 
microcomputers.  Such  software  enhances  JMEM  utility. 
However,  JMEM’s  overall  performance  becomes  marginal  when 
targeting  an  area  target,  like  a  runway. 

Simple,  probabilistic  equations  analyze  weapons 
affects  well  for  point  targets  like  the  SAM  site.  But  JMEM 
gets  more  complicated  for  runways.  Runways  are  usually 
built  larger  than  combat  mini mums  raquire.  Although 
weapons  might  tear  up  4,000*  of  a  9,000*  runway,  if  air¬ 
craft  can  operate  on  the  remaining  5,000*,  it  is  difficult 
to  evaluate  the  success  of  the  mission.  Therefore  the 
mathematics  behind  the  charts  and  graphs  take  an  order 
statistics  approach  to  determine  a  probability  of  cut. 

Using  approximations,  the  method  calculates  the  probability 
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that  the  largest  clear  width,  CW,  within  a  line  of  craters 
across  the  runway,  is  less  than  the  minimum  width  required 
for  TOL  operations,  WR. 

In  the  simple  case,  assuming  a  uniform  distribution 
across  the  runway,  and  normalizing  CW  for  a  runway  width  of 
1,  this  probability  is  given  by: 

Pr<CW>WR>  -  n*(l-WR)**(n-l)-(n/2) (l-2*WR)**(n-t)+. .. 

( (— 1) ** (i+1 ))*(n/i)*( l-i*WR)**(n— 1 ) 
where  n  »  number  of  spaces  ■  number  of  weapons  +  1 

The  series  continues  until  (l-i*WR)  <=*  0.  (Ref. 4:81) 

The  order  statistics  approach  gets  more  complex  when 
dealing  with  normal  distributions.  Furthermore,  in 
addition  to  the  normal  error  distributions  associated  with 
the  attack,  there  also  exists  a  chance  of  weapons  dudding 
on  impact.  Clearly,  computerizing  such  complex 
relationships  is  beyond  the  scape  af  this  research. 

Furthermore,  sensitivity  analysis  when  using  JMEM’s 
is  not  passible.  For  example,  if  the  JMEM  output  indicates 
24  sorties  to  close  a  runway,  what  is  the  expected  damage 
if  only  6  sorties  are  flown? 

Since  its  release,  JMEM  has  set  targeting  standards. 
But  JMEM  can  be  improved  concerning  runways.  This  thesis 
will  contribute  one  part  of  that  improvement. 

Other  targeting  works  include  two,  unpublished,  AFIT 
M.S.  theses.  One  is  by  John  C.  Pemberton,  and  the  other  by 
Howard  M.  Hachida. 

Pemberton’s  work  optimally  assigns  aimpoints  for 
perpendicular  runway  cuts.  He  used  set  theory  to  find  an 
"open"  cell,  through  a  method  called  discrete  approxima¬ 
tion.  The  event  of  interest  is  the  event  that  the  runway 
is  cut  (the  minimum  clear  width  is  denied). 
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Figure  3  Independence  of  Runway  Cuts  (Ref.  7:  20) 


A  reasonable  assumption  o-f  this  approach  is  that 
mini mum  clear  lengths  are  long  compared  to  the  standard 
deviation  (S/D)  o-f  the  errors.  Then,  i-f  cuts  are  aimed  at 
least  three  S/D  inside  the  end  of  a  minimum  clear  length, 
each  cut  can  be  considered  an  independent  event.  Figure  3 
illustrates  the  concept. 

With  a  discrete  approximation,  the  runway  is  approxi¬ 
mated  with  a  number  of  discrete,  overlapping,  minimum 
launch  widths.  Since  the  widths  overlap,  the  closing  of 
each  discrete  section  is  not  independent  of  closing  other 
sections.  Therefore,  probability  of  cut  is  obtained  from 
the  complex  set  theory  of  combining  these  events. 

Pemberton  intended  his  work  to  be  used  during  wartime 
erations,  so  one  of  his  constraints  was  fast  execution. 

limited  his  analysis  to  singly  released,  nigh  precision 
apons. 

Hachida's  work  improved  the  discrete  approximation 
used  by  Pemberton.  He  found  redundancy  in  the  analysis  of 
certain,  individual  sections.  He  eliminated  the  redundant 
sections,  and  reduced  the  time  required  to  run  Pemberton's 
program.  He  also  improved  the  search  algorithm  determining 
optimum  aimpoints. 

loth  works  are  excellent  research,  and  contributed  to 
the  understanding  of  weapons  effects  and  the  optimal 
targeting  of  single-warhead,  singly-released  weapons. 


Neither  work,  however ,  considered  multiple  weapon  releases. 

The  current  thesis  is  designed  to  enlighten  decision 
makers  on  alternate  targeting  concepts.  It  will  provide 
data  that  should  be  studied  be-fore  conflict.  Therefore,  it 
is  capable  of  examining  multiple  releases.  Also,  it  has  no 
requirement  for  perpendicular  cuts.  And  when  considering 
several  weapons  released  on  a  single  pass  (a  stick 
delivery),  a  perpendicular  pass  can  be  harmful.  For 
example,  a  typical  delivery  airspeed  of  540  knots,  and  the 
minimum  interval ometer  (or  time-bet ween -re leases)  setting 
of  0.05  seconds,  results  in  an  impact  spacing  of  just  under 
50*.  At  best,  a  perpendicular  pass  on  a  runway,  200*  wide, 
could  produce  only  four  impacts.  Therefore,  depending  on 
aircraft  weapon  load,  and  expected  accuracy,  some  angle-off 
to  the  runway  centerline  will  maximize  the  number  of 
impacts  per  pass.  The  current  thesis  will  analyze 
targeting  not  only  single  weapons,  but  also  strings  of 
weapons. 

Computer  Simulation  Models 

In  addition  to  the  theater-level  warfare  models 
discussed  earlier,  other  smaller  scale  simulations  of 
air-to-ground  weapons  delivery  exist.  These  include: 

AIDA,  AHAB,  RUNW,  and  AAP— all  designed  specifically  for 
airbase  attack. 

AIDA  is  a  large— scale,  damage  assessment  model  used 
by  Air  Force  Studies  and  Analysis.  It  simulates  many  of 
the  elements  of  airbase  attack,  including  enroute  attrition 
of  the  attackers.  Runway  damage  is  assessed  by  sliding  a 
rectangle  of  required  clear  dimensions  along  the  runway, 
and  looking  for  a  clear  area.  Although  otherwise 


comprehensive,  when  assessing  runway  damage,  AIDA  only 
considars  point-impact  waapons.  (Ref. 7: 11)  The  analysis  is 
thorough,  but  program  size  makes  execution  difficult,  and 
limited  to  large  capacity  machines. 

AHAB  is  an  interactive  RAND  model  that  uses  decision 
maker  (DM)  value  functions  to  maximize  attack  results. 
However,  the  DM  does  not  have  full  authority  in  the  design 
of  the  attack.  AHAB  assumes  evenly  spaced,  perpendicular 
cuts,  and  allows  only  one  weapon  type  in  the  attack. 

RUNW  is  a  simple,  calculator  method  for  determining 
the  probability  of  closing  a  single  runway.  It  was 
developed  by  SHAPE  Headquarters  in  the  early  ’70’s.  Though 
effective  for  small  attacks  with  point-impact  weapons,  RUNW 
cannot  handle  the  variance  of  weapons  that  can  be  delivered 
by  tactical  aviation,  nor  will  it  allow  flexibiltiy  in 
designing  attacks. 

Finally,  AAP  is  another  large-scale,  Monte  Carlo-type 
attack  assessment  program.  It  has  slightly  less  target 
capacity  than  AIDA,  but  AAP  allows  more  flexibility  in  the 
design  of  attacks.  Specifically,  AAP  will  evaluate  cluster 
munition  effects  against  runways,  as  well  as  assessing  the 
effectiveness  of  point-impact  weapons.  But  again,  because 
of  AAP’s  large  size,  it  is  difficult  to  use  and  does  not 
permit  interactive  execution. 

Given  the  shortfalls  of  each  of  these  models  or 
methods,  it  was  originally  decided  to  develop  a  new  model. 
Consideration  was  given,  and  attempts  made,  to  use  either 
Q6ERT  or  SLAM  simulation  languages.  However,  the  intri¬ 
cacies  of  the  clear  strip  and  taxi  searches  forced  the 
effort  to  study  the  detail  of  one  of  the  above  models.  The 


choictt,  based  on  flexibility  of  the  allowable  attacks,  was 
to  use  the  search  algorithm  of  AAP. 

An  attempt  to  transport  the  search  algorithm  to  the 
QGERT  or  SLAM  driver  programs  failed,  due  to  the  complexity 
of  the  routines.  Therefore,  it  was  finally  decided  to 
modify  AAP  to  satisfy  the  needs  of  the  problem.  The 
modification  would  make  the  program  a  useable  tool  for 
tacticians  and  operations  planners.  Chapter  IV  documents 
the  conversion  of  AAP  into  AAPMOD.  But  the  rest  of  Chapter 
II  presents  further  details  of  AAP. 

Attack  Assessment  Program  (AAP)  was  developed  by  the 
University  of  Oklahoma,  under  contract  F-08635-79-C-0255, 
for  the  Joint  Technical  Coordinating  Broup  for  Munitions 
Effectiveness.  AAP  has  excellent  program  design.  AAP  will 
evaluate  the  effects  of  multiple  warheads  delivered  against 
a  target  complex  composed  of  multiple  elements  of  threo 
types: 

1)  Take-off  and  landing  (TOL)  surfaces:  pavements  or 

sod  areas  capable  of  supporting  TOL  operations; 

2)  Minor  taxi -ways:  pavements  or  sod  capable  of 

supporting  only  taxi  operations;  and 

3)  Structures:  buildings,  bunkers,  POL  storage  or 

delivery  facilities,  etc. 

As  indicated  earlier,  AAP  has  substantial  input 
capacity.  But  the  price  is  paid  when  loading  for 
execution.  For  example,  AAP  will  allow  up  to  10  separate 
attacks  per  mission,  with  up  to  64  delivery  passes  per 
attack,  with  up  to  16  different  delivery  patterns,  with  up 
to  36  weapons  released  per  pass.  However,  even  with  a  CDC 
CYBER  NOS/BE  operating  system,  AAP  was  too  big  to  run 
interactively. 

During  execution,  user  defined  attacks  are  assessed 
for  the  damage  they  cause  to  a  user  defined  target 
complex.  Locations  and  orientations  within  the  complex  are 


ref trmc*d  to  a  right-handed,  two— dimensional ,  Cartesian 
coordinate  system.  All  angles,  for  both  target  element 
orientation,  and  attack  definition,  are  measured  in 
degrees,  CCW  from  the  positive  X-axis. 

The  allowable  limits  for  target  definition  are  as 
follows: 

207  target  elements, 

of  which  up  to  43  may  be  pavements, 

of  which  3  may  be  TOL  pavements. 

As  overhead  to  these  limits,  AAP  further  allows  up  to 
11  types  of  surfaces,  each  with  a  different  hardness  code, 
called  the  surface  code.  Together  with  6  different  types 
of  warhead  codes,  the  various  combinations  of  the  two  codes 
define  the  size  of  craters. 

Finally,  implementation  of  AAP  is  straight-f or ward: 

1)  Each  Monte  Carlo  iteration  represents  a  mission. 

2)  Within  an  iteration,  the  program  first  “flies"  out 
the  mission.  AAP  loops  first  on  attack  number,  then 
pass  number,  assigning  an  impact  location  to  each 
warhead  or  submunition.  If  proper  fuzing  occurred, 
the  resultant  crater  is  evaluated  in  its  proximity  to 
target  elements.  Both  hits  and  near-misses  are 
stared  far  later  damage  assessment. 

3)  When  the  mission  is  complete,  AAP  assesses  the 
hits  for  target  damage.  Search  routines  determine 
TOL  status,  taxi -way  status,  or  structural  damage. 

4)  Finally,  AAP  accumulates  the  damage  of  each  Monte 
Carlo  iteration  and  yields  output  statistics  of  the 
expected  damage  of  tne  overall  mission. 

Each  of  the  works  addressed  in  this  chapter,  in  some 
way  enhances  understanding  attack  efforts  and  damage 
results.  And,  given  the  expected  damage  of  a  defined 
target,  a  commander  can  decide  whether  his  efforts,  and 
possible  losses,  are  worth  the  expected  damage. 

The  current  research  has  drawn  from  these  works  to 
develop  a  methodology  enabling  a  clear  understanding  of 
damaga  versus  effort.  Limiting  the  scope  of  the  associated 
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■xptriMnt  to  one  typo  of  aircraft,  against  ana  typa  of 
targat,  this  thasis  remains  a  reasonable,  yet  functional 
study. 

This  study  should  stand  on  its  own,  to  assist 
tacticians  and  aircrews  to  optimally  plan  weapons 
deliveries.  Additionally,  it  fills  the  practical  void  in 
current  runway  targeting  analyses,  and  helps  AF  planners 
avoid  the  difficulties  encountered  in  the  USAFE  exercise. 
Finally,  this  thesis  can  yield  the  return-value  of  attacks 
against  targets.  It  can  help  clarify  the  relationship 
between  level  of  attack  and  expected  damage.  And  in  proper 
format,  the  data  produced  by  this  research  can  become  an 
input  to  larger  scale  models. 


I I I .  System  Specification 


In  recant  years,  both  allies  and  enemies  have 
hardened  their  airbases.  "Hardening"  means  to  reduce 
vulnerability  to  attack.  A  case  in  point  is  RAF  Upper 
Heyford,  in  Oxfordshire,  England.  Recent  construction 
includes  over  60  hardened  aircraft  shelters  (HAS),  as  well 
as  several  operation  centers  and  maintenance  facilities. 

The  shelters,  for  example,  are  constructed  of  reinforced 
concrete,  over  36"  thick  at  the  base,  and  over  18"  thick  at 
the  top.  This  design  is  depicted  in  Figure  4,  below.  For 
clarity,  sliding  doors,  weighing  over  50-tons  each,  are 
omitted.  When  buttoned— up,  these  HAS  can  withstand  most 
conventional  attacks,  as  well  as  some  small-yield,  nuclear 
near-misses.  These  shelters  eliminate  the  once  lucrative 
target:  aircraft  in  the  open. 


But  just  ss  hardening  improves  NATO  survivability, 
similar  efforts  have  been  matched  by  the  Soviets.  They 
have  hardened  their  main  operating  bases,  though  to  a  lower 
proportion.  Comments  by  General  Wilbur  L.  Creech,  the 
Commander  of  Tactical  Air  Command  <TAC> ,  as  reported  in 
Armed  Forces  JOURNAL  <AF J) ,  January  83,  indicate  Warsaw 
Pact  HAS  capacity  does  not  exceed  a  shelter  to  aircraft 
ratio  of  1:3.  (Ref. 14:28)  1/  Regardless,  their  hardening 

efforts  have  reduced  the  vulnerability  of  their  aircraft  to 
attacks  by  our  tactical  aviation. 

The  Israeli  Air  Force  (1AF)  can  take  credit  for  the 
resurgence  of  modern  hardening  efforts.  The  concept  of 
cover  to  protect  resources  is  not  new.  But  as  with  most 
projects  that  require  funds,  hardening  efforts  received  low 
priority.  Then,  on  5  June  1967,  the  Israelis  plainly 
demonstrated  the  utility  of  sheltering  aircraft  in  HAS.  On 
that  day,  the  IAF  attacked  26  Arabian  airbases.  In  one 
day,  the  IAF  destroyed  over  358  aircraft  on  the  ground.  The 
IAF  swiftly  established  air  superiority,  after  which  the 
Arabs  could  only  muster  harassment  attacks.  In  total,  the 
Arabs  lost  about  450  aircraft  in  the  Six-Day  War.  Of  those 
losses,  393  aircraft  were  killed  on  the  ground.  Meanwhile, 
the  Israelis  only  lost  about  40.  (Ref. 20:80) 

But  the  Arabs  and  their  supporters  took  the  lesson. 
With  their  rearmament  between  ”67  and  '73,  the  Arabs  built 
hangerettes  as  they  reacquired  equipment.  And  in  October 
of  1973,  the  IAF*s  counter-air  efforts  were  less  success¬ 
ful.  The  IAF  destroyed  only  22  aircraft  on  the  ground: 
hangerettes  worked.  In  *73,  IAF  counter  air  had  to  attack 
runways  and  taxi ways  to  suppress  Arab  air.  And  as  will 
become  apparent  later  in  this  chapter,  denial  of  these 


1/  The  Warsaw  Pact  currently  has  over  7,240  combat 
aircraft  in-place,  in  Europe.  (Ref. 15: 17) 


surfacM  required  frequent,  heavy  attack.  Coupled  with 
sophisticated  missile  defenses,  the  IAF  lost  109  aircraft. 
Of  these  losses,  73  occurred  in  the  early  part  of  the 
fight,  with  as  many  as  24  in  one  day.  (Ref. 20:80) 

The  obvious  question  is:  Why  attack  airfields? 

The  answer  lies  in  a  complex  analysis  of  modern  warfare, 
perhaps  conducted  with  the  aid  of  a  model  such  as  TAWM, 
discussed  at  length  in  Chapter  II.  Recall  that  one  frame¬ 
work  for  a  model  of  theater  level  warfare  can  be  based  on 
game  theory.  The  players  are  the  two  sides:  red  forces 
and  blue  forces.  The  value  of  the  game  is  net  tonnage, 
delivered  on  the  enemy,  in  support  of  the  ground  battle. 
Each  of  the  actions  specified  in  Figure  2  contribute  value, 
or  in  some  way,  effect  a  positive  change  to  the  net  tonnage 
figure. 

Although  the  opportunity,  as  General  Creech  reminds 
us,  to  destroy  enemy  aircraft  on  the  ground  is  not  totally 
eliminated,  this  discussion  of  airbase  hardening  should 
infer  that  trying  to  destroy  the  enemy's  potential,  by 
destroying  his  aircraft  on  the  ground,  is  becoming  an 
increasingly  more  difficult  task.  Destroying  runways,  to 
prevent  TOL,  is  therefore  one  alternative. 

In— depth  consideration  of  other  attack  options  is 
beyond  the  scope  of  this  study.  Factors  affecting  the 
decision  include  the  following: 

1)  Availability  and  traffic  capacity  of  alternative 

TOL  surfaces,  such  as  taxiways  and  grass  strips.  And, 

2)  The  value  of  alternative  targets  such  as  POL  or 

maintenance  facilities  in  denying  sortie  potential. 

But  destroying  runways  is  the  primary  option  studied  in 
this  research. 

A  fundamental  purpose  of  this  study  is  to  develop  an 
understanding  of  the  relevant  factors  affecting  the 
probability  of  cutting  a  runway.  To  optimally  allocate 


their  -fighters,  decision-makers  must  know  the  e-f-fecti veness 
of  the  particular  aircraft  against  various  types  of 
targets.  To  ensure  a  common  level  of  understanding,  the 
"system"  of  the  attack  is  detailed  below.  The  response  of 
the  system  is  the  probability  of  denying  enemy  TOL 
operations  from  the  runway. 

The  System 

For  purposes  of  this  study,  the  process  of  runway 
attack  begins  with  the  aircraft  20  nm  from  the  runway.  The 
crew  has  survived  enemy  defenses  to  this  initial  point  (IP) 
for  their  attack.  The  navigation  systems  are  updated  as 
well  as  possible,  and  the  aircraft  makes  its  target  run. 

The  crew  encounter  terminal  defenses.  The  crew,  aided  by 
the  aircraft  systems,  must  visually  acquire  the  runway,  and 
release  the  weapons  at  an  appropriate  point  to  impact  the 
runway.  The  damage  mechanism  is  a  crater,  surrounded  by  a 
disrupted,  cracked  ring  of  pavement,  over  which  an  aircraft 
cannot  operate.  The  term  "crater  radius",  implies  both  the 
crater  and  the  unuseable  ring  around  it.  If  the  impact 
pattern  occurs  so  that  no  clear  rectangle  of  the  minimum 
required  dimensions  exists  on  the  runway,  the  runway  is 
closed  (unuseable). 

Typically,  the  crew  plans  an  attack  by  first  studying 
the  attack  request.  If  the  attack  must  deny  use  of  a 
runway  for  some  length  of  time,  they  will  choose  an  axis- 
of -attack  for  cuts,  based  on  enemy  threats,  navigation 
pointers,  and  damage  requirements.  Note  that  maximizing 
damage  is  not  the  only  factor  affecting  the  choice.  If 
threats  or  the  potential  for  poor  navigation  accuracy  deny 
the  optimal  angle-off,  the  crew  must  settle  for  a  sub- 
optimal  attack  plan.  (This  thesis  can  provide  an  analysis 
of  the  expected  damage  for  any  angle  chosen.) 


With  their  plan  the  crew  tries  to  maximize: 

1)  their  chances  of  surviving! 

2)  their  chances  of  finding  the  target}  and 

3)  their  chances  of  damaging  the  target. 

General ly,  someone  else  chooses  the  weapons  the  crew 
will  deliver!  however,  the  crew  can  request  a  change  if 

they  do  not  agree  with  the  choice.  On  the  other  hand,  the 
type  of  weapon  pattern  employed  is  totally  at  the  crew’s 
discretion. 

The  weapon  pattern  is  the  result  of  complex  inter¬ 
actions  of  many  variables.  Some  are  controlled  variables, 
defining  a  type  of  pattern,  while  others  are  stochastic 
variables,  affecting  the  actual  locations  of  craters  within 
the  pattern.  These  variables  are  individually  addressed 
later.  But  first,  the  reader  is  reminded  of  the  four  types 
of  elements,  or  variables  used  in  simulation  models: 

1)  Stochastic  variables:  variables  over  which  the 
user  has  no  control. 

2)  Controlled  variables:  variables  that  the  crew  or 
planners  can  control: 

3)  Modified  control  variables:  planners  or  crew  have 
control  over  the  parameters  of  the  parent 
distribution,  but  once  the  process  begins,  values  are 
randomly  drawn  from  the  distribution. 

4)  Parameters  of  the  system:  these  are  variables 
that  once  set,  remain  constant.  (Ref. 19: 15) 

The  above  types  of  variables  comprise  the  system 
inputs.  The  system  processes  inputs,  and  produces  an 
output:  a  response.  In  fact,  the  complex  system  yields 
numerous  responses.  But  of  primary  concern  in  this  study 
is  the  response  of  the  probability  of  closing  a  runway. 
Figure  5,  that  follows,  graphically  relates  inputs  to 
response  with  a  causal  diagram  of  the  interactions  of  the 
input  variables.  The  next  few  pages  discuss  these  inputs  in 
detail,  followed  by  discussion  of  the  response  variables. 
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Figure  5  Runway  Attack  Causal  Loop  Diagram. 


In  the  following  list  of  variables,  note  the  assortment 
of  variable  types.  Variables  range  from  continuous,  ratio-- 
type  quantities,  such  as  error  distributions,  to  qualitative, 
categorical  variables  like  release  mode. 


Navigation  grror.  Navigation  error  is  a  stochastic 
variable,  based  on  crew  abilities  and  aircraft  systems. 
The  crew  may  or  may  not  find  the  runway. 

A^mpoi nt  Erf qr .  Qiven  that  the  crew  finds  the 
target,  they  may  misjudge  the  pre-planned  aimpoint.  This 


type  of  error  is  called  aimpoint  error.  Aimpoint  error  is 
minimal  when  considering  point  targets  like  radar  sites  or 
isolated  buildings.  However,  it  can  become  large  when 
considering  area  targets,  such  as  large  tank  farms  or 
runways.  Under  combat  conditions,  there  can  be  a  strong 
tendency  for  the  crew  to  misjudge  the  oner-third  or  one— 
quarter  point  of  a  nine  or  ten  thousand  foot  runway. 
Aimpoint  error  is  a  stochastic  variable  that  can  depend  on 
axis-of-attack.  The  error  will  always  be  greatest  along 
the  longitudinal  axis  of  the  runway.  Data  for  this  type  of 
error  is  not  currently  available.  However,  discussion  with 
several  classmates  and  instructors,  with  a  combined 
experience  of  over  35  years  in  ground  attack  fighters, 
suggests  use  of  a  triangular  distribution. 

Del i very  Error.  Delivery  error  is  a  controlled 
variable  that  describes  the  error  attributed  to  a 
combination  of  the  inaccuracies  in: 

1)  crew  release  procedures,  and  flight  parameters,  at 

time  of  release!  and 

2)  the  aircraft  release  system. 

Delivery  error  is  considered  a  controlled  variable, 
because  the  parameters  of  the  distribution  representing  the 
error  can  be  controlled.  Crew  proficiency,  developed 
through  training,  will  affect  the  crew's  accuracy. 
Similarly,  the  accuracy  of  the  aircraft  armament  system 
depends  on  the  quality  and  availability  of  its  maintenance. 

If  the  crew  properly  identifies  their  aimpoint, 
delivery  error  will  still  displace  the  weapon  pattern  from 
the  aimpoint.  Historical  data  supports  use  of  a  single, 
normal  distribution  with  a  mean  of  zero  to  provide  one  term 
to  incorporate  both  errors.  However,  delivery  error  has 
two  components: 
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1)  Range  error — or  error  in  the  flight  direction  of 
the  aircraft!  and 

2>  Deflection  error— or  error  transverse  to  the 
flight  direction. 

These  two  components  define  a  bi -variate  normal  error 
distribution.  And  if  the  two  components  are  identically 
distributed,  i.e. ,  their  distributions  possess  the  same 
standard  deviation,  they  describe  a  circular  normal  error 
distribution.  The  reader  is  referred  to  either  Pemberton 
or  Hachida  for  further  detail  of  these  error  terms. 


Ballistic  Dispersion  <Bd>.  Each  weapon  will  have  its 
own  random  error  due  to  slight  differences  in  center  of 
gravity,  weight,  release  orientation,  wobble,  etc.  This 
error  is  usually  described  in  radians,  so  actual  ground- 
distance  depends  an  the  range  of  the  free-f light  trajectory 
of  the  bomb  after  aircraft  separation.  This  study 
considers  Bd  a  stochastic  variable.  Refer  to  Appendix  B 
for  further  detail. 

Weapon  Reliability.  Due  to  the  high  speed  of  impact, 
and  the  hardness  of  the  concrete,  the  bomb  could  ricochet 
or  break,  instead  of  explode,  and  no  crater  forms.  By 
selecting  the  weapon  and  the  delivery  parameters,  the  crew 
can  control  reliability.  Therefore,  weapon  reliability  is 
a  modified  controlled  variable. 

Rel ease  Interval .  The  time  interval  between  release 
pulses  of  the  armament  system,  typically  measured  in 
milliseconds,  is  the  release  interval.  This  variable  is  a 
controlled  variable,  above  some  system-dependent  minimum 
interval . 


Release  Mode.  Weapons  may  be  released  one  or  more 
per  pass.  Zf  an  even  number  of  weapons  are  to  be  released, 
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Figure  6  Weapon  Impact  Locations  -for  a  Stick  of  Weapons 
Pattern  Resulting  from  (a)  Release — SINGLES, 

<b)  Release — PAIRS. 


the  crew  then  chooses  to  release  the  weapons  singly,  or  in 
pairs.  The  aircraft  armament  system  will  either  release 
weapons  simultaneously  from  both  sides  of  the  aircraft,  or 
will  alternately  step  releases  from  side  to  side. 

The  resulting  patterns  are  illustrated  in  Figure  6. 
Release  Node— SINGLES  results  in  a  long  pattern,  while 
release  Mode — PAIRS  results  in  a  shorter,  more  dense  impact 
pattern.  By  its  nature,  release  mode  is  a  controlled 
variable. 


Number  of  Pulses.  The  armament  system  can  be  set  to 
send  any  number  of  release  pulses  to  the  bombracks.  The 
number  of  pulses  determines  the  number  of  weapons  released 
per  pass.  Based  on  mode  selection,  one  or  two  bombs  will 
drop  with  each  pulse.  If  more  than  one  pulse  is  selected, 
the  string  of  releases  is  called  a  "stick  of  bombs".  The 
number  of  pulses  is  another  controlled  variable. 


BlilBSfi  Alfciiydfi-  Release  altitude  is  a  controlled 
variable.  It  represents  the  height  of  the  aircraft,  above 
the  ground,  at  the  release  point  for  the  weapons  pass.  Du« 


to  free— flight  of  the  weapons  as  they  drop,  this  point  is 
usually  well  short  of  the  desired  mean  point  of  impact 
(DfFI).  An  error  in  achieving  this  variable,  during  the 
release  can  cause  significant  miss  distances.  However, 
during  a  systems  analysis,  aiss  distance  due  to  altitude, 
dive,  or  airspeed  errors,  is  lumped  together  in  a  part  of 
the  delivery  error  tera,  defined  earlier. 

Release  Soeed.  Another  controlled  variable,  release 
speed  is  the  true  airspeed  of  the  aircraft  at  weapons 
release.  When  interacting  with  the  release  interval, 
release  mode,  and  dive  angle,  release  speed  sets  the  ground 
spacing  between  impacts.  To  inject  realism,  one  may  safely 
assume  the  crew  will  choose  the  fastest  release  speed 
weapons  will  permit. 

Dive  Angle.  The  dive  angle  is  the  angle  the  flight 
path  of  the  aircraft  makes  with  the  ground  at  weapons 
release.  Dive  angle  also  affects  other  variables  of  the 
system.  For  example,  a  diving  delivery  implies  higher 
altitude,  resulting  in  better  accuracy,  and  weapons 
reliability,  but  possibly  more  exposure  to  threats,  and  so 
less  survivability.  Dive  angle  is  a  controlled  variable. 

Weapon  Pattern.  The  weapon  pattern  is  the  result  of 
the  interaction  of  release  mode,  release  interval,  release 
speed,  altitude,  and  dive-angle.  One  can  consider  two 
types  of  weapon  pattern:  intended  and  actual.  The  intended 
will  be  a  symmetric,  neat  pattern,  centered  on  the  aim- 
point.  The  actual  weapons  pattern  perturbs  the  center  of 
the  pattern  from  the  aimpoint  because  of  aimpoint  error  and 
delivery  error,  and  Bd  perturbs  the  individual  impacts 
within  the  pattern.  Figure  7,  on  the  next  page,  illus¬ 
trates  these  concepts. 


Figur«  7  Weapon  Impact  Locations  for  a  Stick  of  Weapons. 
Pattern  Depicted  is  (a)  Intended  Pattern. 

(b)  Actual  Pattern. 


Ai mooint.  An  important  consideration  of  the  attack 
is  the  desired  mean  paint  of  impact  (DMPI)  for  a  stick  of 
bombs,  or  tha  desired  paint  of  impact  (DPI)  for  a  single 
release.  This  point  is  chosen  by  the  crew,  and  is  thus  a 
controlled  variable. 

Ax i s-of -Attack .  Ax is-of -attack  is  the  angle  the 
flight  path  of  the  aircraft  makes,  referenced  to  the 
longitudinal  axis  of  the  runway.  A  controlled  variable, 
driven  by  considerations  as  follows: 

1)  Navigation  Aids — the  crew  will  choose  an  IP  that  will 
maximize  their  chances  of  finding  the  runway.  So  to 
preclude  gross  maneuvers  departing  the  IP,  ax i s-of - 
attack  is  somewhat  limited. 

2)  Target  Defenses — the  crew  may  be  denied  optimum  axis- 
of -attack  if  on  the  run-in  line,  three  miles  short  of 
the  runway,  the  enemy  has  established  a  gun  emplacement. 

Crater  Radius.  Crater  radius  is  the  size  of  the  hole 
produced  by  the  exploding  warhead.  Crater  radius  is  a 
function  of  the  type  of  weapon,  depth  of  penetration  of  the 
warhead  before  exploding,  and  type  of  surface.  AAPMOD 
considers  crater  radius  a  parameter  of  tha  system.  By 
virtue  of  the  physical  interactions  of  warhead  and  target, 
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Figure  8  Accurately  Scaled  Runway  with  Craters. 

crater  radius  can  be  considered  a  parameter.  However, 
since  the  set  of  interaction  conditions  are  chosen  by  the 
user,  this  study  will  consider  crater  radius  as  a 
controlled  variable. 

Runway  Dimensions.  A  parameter  of  the  system  is  the 
original  size  of  the  runway  to  be  attacked.  To  ensure  the 
proper  perspective  of  this  system,  Figure  8  is  an  accurate¬ 
ly  scaled  drawing  of  an  8,000"  x  150*  runway,  with  12 
craters,  from  weapons  released  in  pairs,  at  480  kts,  and 
50  ms  spacing.  The  shaded  area  represents  a  minimum  clear 
area  for  TOL,  chosen  for  this  example  to  be  4,000’  x  50*. 

Hint mum  Clear  Dimensions.  Another  parameter,  for  any 
one  system,  the  minimum  clear  dimensions  are  those  clear 
dimensions  required  to  permit  aircraft  take-off  and  land 
(TOL)  operations.  These  dimensions  are  a  function  of  the 
aircraft  operating  from  the  runway. 

8urvivabilitv.  Sortie  profile,  routing,  and  tactics 
all  affect  the  overall  chances  of  the  aircraft  making  it  to 
the  weapons  release  point.  The  intricacies  of  this 
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variable  are  complex,  beyond  the  scope  of  this  research. 
Survivability  is  a  function  of  weather,  equipment  status, 
operator  proficiency,  degree  of  saturation,  plus  many  more 
^  factors.  Therefore,  the  judgement  of  the  individual  user 

will  determine  the  value  for  aircraft  survivability.  This 
eleeent  has  been  retained  because  it  is  felt  newer  aircraft 
have  greater  survi vabi ltiy  in  combat  operations,  and  this 
fact  must  be  considered  by  the  model  when  considering 
competitive  effectiveness.  Given  this  discussion,  the 
probability  of  the  aircraft  surviving  to  the  release  point 
is  a  modified  controlled  variable. 


The  system  response  is  damage.  But  damage  can  be  a 
nebulous  term.  Damage  is  deleterious  change  to  the  system. 
The  intended  damage  of  an  airfield  attack  is  denial  of  the 
use  of  the  base.  Recall  from  earlier  in  this  chapter,  that 
there  are  several  ways  to  achieve  the  response.  The  most 
obvious,  and  the  response  of  interest  in  this  study,  is  to 
deny  the  physical,  clear  area. of  pavement  required  to 
support  TOL. 

Damage  itself  is  hard  to  measure,  so  measurement  of 
the  response  requires  surrogate  measures.  Area  cratered, 
or  number  of  hits  are  some  ratio-type  measures.  Airfield 
status  or  runway  status,  open  or  closed,  are  other, 
categorical  measures.  The  idea  of  two  categories  gives 
rise  to  Bernoulli  trials,  and  ultimately  a  probability  of 
the  attack  closing  the  runway,  or  the  airfield.  And 
airfield  status  is  the  response  of  primary  concern  in  this 
research. 

Understanding  the  damage  response  is  crucial  to 
understanding  the  system.  Four  important  events  are 
associated  with  the  response.  These  events  are  a  runway 
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Figure  9  Illustration  of  <a)  Clsar  TOL  Dsn i ad,  and  (b)  the 
Available,  Meandering  Path  for  Taxiing. 

cut,  a  taxiway  cut,  runway  closure,  and  field  closure. 

Each  of  these  events  is  defined,  below. 

A  runway  cut  is  a  chain  of  craters  across  the  runway. 
The  width  between  the  craters  oust  be  less  than  the  minimum 
width  required  by  the  using  aircraft.  Because  an  aircraft 
cannot  maneuver  around  craters  during  hi -speed  TOL,  offsets 
of  the  craters,  along  the  length  of  the  runway,  do  not 
abrogate  the  denial  of  TOL  capability,  if  thm  minimum  midth 
is  dmnimd.  Figure  9<a)  depicts  two  craters  cutting  a 
runway. 

A  taxiway  cut  is  slightly  different.  Again,  a  chain 
of  craters  oust  exist.  But  now,  lateral  displacements 
between  the  craters  must  also  be  minimized.  Due  to  slower 
speeds,  and  the  possibility  of  ground  marshal lers,  taxiing 
aircraft  can  meander  their  way  around  craters.  Also,  the 
effective  size  of  the  disruption  changes.  Because  of  the 
slower  speed,  and  better  accuracy  of  tire  placement,  the 
radius  of  disruption,  severe  enough  to  deny  taxiing,  is 
less  than  the  radius  used  to  deny  TOL. 

Figure  9  depicts  two  craters.  As  mentioned  above, 
the  craters  in  <a)  deny  the  minimum  clear  area  required  for 
TOL,  so  the  runway  is  cut.  But  in  (b),  the  same  crater 
locations  do  not  deny  taxi.  Not  only  are  the  disruptions 
smaller,  an  aircraft  can  meander  around  the  craters,  so  the 
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surface  is  not  cut.  NOTE:  The  gams  surface  and  impact 
pattern-  can  have  different  status  depending  on  the  type  of 
activity  required  of  the  surface. 

A  TOL  strip  can  be  so  large  that  it  requires  two  or 
■lore  cuts  to  deny  the  minimum  clear  dimensions.  Andt  if  as 
addressed  earlier,  the  aimpoints  for  the  cuts  occur  three 
standard  deviations  from  the  ends  of  clear  areas,  the  cuts 
can  be  considered  independent.  Then  the  probability  of 
closing  a  large  runway  is  the  product  of  the  probabilities 
of  the  single  cuts.  And  by  Pemberton,  these  probabilities 
are  taken  to  be  identical.  (Ref. 16:5)  For  this  case,  the 
adjective,  physical ,  applies.  Craters  physically  prevent  a 
clear  operating  area,  and  the  runway  is  closed. 

The  last  case  borders  on  the  limits  of  this  thesis. 
The  obvious  way  to  deny  operations  from  a  field  is  to  close 
each  runway.  But  another  way  is  to  deny  taxi  to  the  runway 
or  the  clear  area  remaining  open  for  TOL  operations.  A 
gross  simplification  would  be  to  assume  independence  of  all 
these  events.  Perhaps,  in  an  analysis  limited  to  highly 
accurate,  point-impact  weapons,  the  approximation  would  be 
good.  But  experience  suggests  that  the  size  of  sticks  of 
weapons,  interacting  with  low  delivery  accuracies,  and 
small  target  element  separations  produce  collateral  damage 
responses.  And  the  events  of  interest  are  no  longer 
independent. 

Although  only  the  event,  closing  all  runways,  is 
studied  here,  the  concept  of  denial  can  be  extended  to 
denying  access  to  the  runways  (or  the  clear  areas  of 
runways)  that  remain  after  an  attack.  So  although  the 
minimum  clear  required  dimensions  may  physically  exist, 
without  access,  they  cannot  support  TOL. 

But  the  system  is  not  limited  to  these  probabilistic 
responses.  Other  responses  include  the  total  number  of 
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craters,  the  locations  of  craters,  or  the  minimum  number  of 
craters  requiring  repair  to  regain  open  status.  Another 
response  is  number  of  aircraft  lost  in  the  attack,  or 
number  of  weapons  budding.  Each  of  these  responses  may 
have  significance.  An  ideal  model  of  the  system  will 
accept  each  of  input  variables  that  were  discussed,  as  well 
as  output  all  of  the  responses. 

The  model  resulting  from  this  thesis  effort  is  not 
ideal.  However,  AAPMOD,  a  modified  version  of  AAP,  does 
input  and  use  11  input  variables,  and  allows  up  to  6 
definitions  of  weapon  pattern.  Also,  each  of  the  above 
responses  is  an  output  of  AAPMOD. 

In  summary.  Chapter  III  has  defined  and  detailed  the 
system  of  a  runway  attack.  Chapter  IV  will  now  describe 
the  implementation  of  these  concepts  in  the  AAP  derivative 
model,  AAPMOD. 
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The  preceding  chapters  have  demonstrated  the  need  to 
better  understand  the  relationship  of  attack  tactics  and 
target  damage.  They  have  illustrated  the  interactions  of 
some  of  the  variables  comprising  the  attack-target  system. 

A  discussion  of  Attack  Assessment  Program — MODIFIED 
(AAPMQD)  Mill  noM  provide  tacticians  the  methodology  to 
achieve  the  understanding  suggested  in  Chapter  I. 

Chapter  IV  describes  AAPMOD,  which  was  developed  from 
the  Attack  Assessment  Program  <AAP> ,  discussed  in  Chapter 
II.  The  three  sections  of  Chapter  IV  begin  with  a  brief 
discussion  of  computer  simulations.  The  discussion  of 
simulations  is  followed  with  a  discussion  of  the  conversion 
of  AAP  to  AAPMOD.  To  facilitate  data  input,  conversion 
included  the  development  of  AAPIN.  AAPIN  enables  inter — 
active  implementation  of  AAPMOD.  The  chapter  ends  with 
discussion  of  program  execution  of  both  AAPIN  and  AAPMOD. 

SaSQMter  Simulation 

Models  are  descriptions  of  systems.  AAPMOD  is  a 
model.  Specifically,  AAPMOD  is  a  computer  simulation  of 
the  complex  interactions  that  occur  when  tactical  aviation 
delivers  ordnance  against  the  enemy.  The  variables 
discussed  in  the  previous  chapter  characterize  the  stmt*  of 
th*  system.  Based  on  user  inputs,  AAPMOD  moves  the  system 
from  one  state  to  the  next  with  discrete  events.  These 
events  include  aircraft  survival,  weapons  release,  weapons 
function,  and  attack  termination.  The  states  of  primary 
concern  are  pre-attack  target  status,  and  post-attack 
target  status.  This  section  of  Chapter  IV  addresses  the 
cogent  concepts  of  AAPMOD. 
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A  Monte  Carlo  Simulation  Two  of  tha  ways  available 
to  examine  stochastic  systems,  or  systems  that  contain 
probabilistic  elements,  are:  1)  expected  value  analysis  and 
2)  Monte  Carlo  sampling  techniques.  Each  method  has 
advantages  and  disadvantages.  Some  mathematicians  require 
the  rigorous  proof  of  a  probability  analysis,  and  claim 
Monte  Carlo  sampling  should  only  be  used  as  a  last  resort. 
(Ref. 2)  But  others  defer  to  the  success  demonstrated  by 
the  technique  since  the  late  1940’ s.  These  supporters 
point  out  that  Monte  Carlo  techniques  can  be  used  to  solve 
completely  deterministic  problems,  that  cannot  be  solved 
analytically.  (Ref. 19:65) 

Briefly,  Monte  Carlo  sampling  generates  random, 
artificial  data  to  simulate  experience.  The  process  first 
establishes  a  random  value  for  each  of  the  probabilistic 
elements  of  a  system.  Once  a  value  has  been  assigned  to 
each  element,  the  system  is  analyzed  for  its  overall 
response.  The  response  is  stored,  and  the  sampling 
continues,  defining  new  component  values,  and  producing  new 
responses.  After  an  appropriate  number  of  iterations 
impproprimtw  will  be  defined  later),  an  average  or 
"expected"  response  becomes  the  output  of  the  process. 

The  accuracy  and  fidelity  of  the  simulation  depend, 
in  part,  on  the  choice  of  distributions  and  parameters 
describing  the  probabilistic  elements.  Next  will  follow  a 
discussion  of  the  distributions,  and  their  parameters,  used 
in  AAPMQD. 

BafeatelUfac  Bisici&yiiaot  sod  Eacamgtgrs  The  only 
probabilistic  variables  in  AAPMQD  are  weapon  impact  error, 
weapon  reliabilities,  and  aircraft  survival.  The 
distributions  assigned  to  these  variables  have  been 
validated  with  years  of  data  collection,  and  by  either 
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combat  experiences  or  intelligence  projections. 

Weapon  errors  consist  of  two  types.  The  -first  is 
aimpoint  error,  and  the  second  is  ballistic  dispersion 
error.  Data  has  been  collected  -from  operational  test  and 
evaluation  o-f  weapons,  aircraft,  and  tactics,  and  from  both 
combat  and  training  weapon  delivery  records,  and  supports 
the  choice  of  normal  error  distributions.  During  weapons 
delivery,  the  parameters  discussed  in  Chapter  Ill  affect 
the  mean  point  of  impact  <MPI)  of  the  weapon  or  weapons. 

And  although  mean  point  of  impact  may  not  be  entirely 
accurate  when  describing  the  release  of  a  single  weapon, 
this  report  will  generically  use  HP I  to  represent  the 
actual  impact  point  of  either  a  singly  released  weapon,  or 
the  center  of  impacts  for  a  multiple  release.  By  defi¬ 
nition,  HP I  implies  that  random,  normally  distributed  error 
displaces  the  center  of  weapon  impacts — the  MPI,  from  the 
aimpoint  (which  is  also  called  the  desired  mean  point  of 
impact — DMPI ) . 

The  other  type  of  weapon  error  is  ballistic 
dispersion  (Bd).  This  error  was  discussed  in  detail  in 
Chapter  III.  Recall  that  each  of  six  weapons  may  have  a 
slightly  different  center  of  gravity,  or  receive  a 
different  ejection  velocity  from  the  bomb-rack.  The 
resulting  impact  pattern  depends  not  only  on  the  aimpoint 
error  of  the  stick,  but  also  on  the  individual  errors 
induced  by  wobble  as  the  weapon  falls,  or  random  velocities 
as  the  weapon  begins  its  trajectory. 

Riven  the  distributions  and  parameters  for  the 
aimpoint  errors  and  ballistic  dispersion,  one  can  determine 
the  expected  number  of  weapons  impacting  the  target.  The 
process  is  simple,  as  demonstrated  in  the  following 
example: 
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Ex  amp 1 •  4.1:  The  ballistic  mrrar  of  a  naw  gun,  at  a  given 
range,  is  independently,  normally  distributed,  in  both  the 
X  and  Y  direction.  The  standard  deviations  are  50*  in  the 
X  direction,  and  25*  in  the  Y  direction.  The  gun  is  aimed 
at  a  target  that  measures  25*  in  the  X  direction  and  10*  in 
the  Y.  If  the  bullet  hits  the  target,  it  will  destroy  the 
target. 

To  keep  it  simple,  assume  the  gun  is  perfectly  aimed. 

What  is  the  probability  of  target  destruction? 

Sketches  illustrate  the  concepts: 
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The  probability  of  the  projectile  hitting,  and  thereby 
killing  the  target  is  simply  the  product  of  the  probability 
of  X— error  being  less  than  +/-12.5*,  and  Y-error  being  less 
than  +/-5* .  From  CRC  normal  tables,  these  probabilities  are 
as  follows: 

Pr  <-12.5  <  X  <  +12.5)  -  0.1974 
Pr  <-5  <  Y  <  +5)  -  0.1586 
Pr  (Hit)  -  Pr  (Hit IX)  *  Pr  (HitlY)  -  0.0313 


In  reality.  Example  4.1  is  grossly  simplified  to 
illustrate  the  basic  probability  theory  of  weapon  effec¬ 
tiveness.  The  bullet  would  have  real  area,  and  particular 
components  of  the  target  would  be  more  or  less  vulnerable 
to  the  impact. 

The  other  probabilistic  elements  considered  by  AAPHOD 
are  aircraft  survival,  and  weapon  reliability.  The 
aircraft  must  survive  enroute  attrition  to  release  its 
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weapons.  If  the  aircraft  reattacks,  it  must  also  survive 
target  area  defenses.  AAPMOD  uses  simple,  discrete 
probabilities  when  testing  for  these  events.  The  user 
enters  the  probability  of  surviving  to  the  release  point. 
Prior  to  weapons  release,  AAPMOD  draws  a  random  number  and 
compares  it  to  the  aircraft’s  chance  of  survival.  If  the 
random  number  is  less  than  the  input  probability,  the 
aircraft  survives.  Xf  the  random  number  is  greater  than 
the  probability  of  survival,  the  aircraft  is  lost,  and  none 
of  its  weapons  impact  the  target  area.  The  same  process 
controls  reattacks,  as  well  as  proper  weapon  detonations, 
CBU  dispenser  openings,  and  CBU  bomb let  detonations. 

If  one  assumes  these  events  are  independent,  the 
ultimate  probability  of  the  desired  response  is  the  product 
of  these  individual  probabilities.  Suppose,  for  example, 
that  in  Example  4.1,  there  was  only  a  0.5  probability  the 
gun  would  fire.  Also,  say  that  the  enemy  fielded  a  decoy 
target,  so  the  chances  of  correctly  aiming  were  only  50-50. 
The  new  probability  of  target  kill  would  be: 

0.0313  *  Pr  (Fire)  *  Pr  (Correct  Aimpoint)  ■ 

0.0313  *  0.5  *  0.5  -  0.0078 

Now,  when  the  damage  mechanism  becomes  cratering,  and 
the  target  is  a  runway,  the  complicated  probabilistic 
interactions  strongly  encourage  the  analyst  to  use  Monte 
Carlo  methods.  An  operational  runway  merely  requires  a 
minimum,  undamaged  width,  for  a  minimum,  undamaged  length. 
Typically,  runways  are  built  longer  and  wider  than  the 
minimum  size  required  for  aircraft  operations.  To  deny 
operations,  these  minimum  rectangular  dimensions  must  be 
denied.  But  they  must  be  denied  everywhere  on  the  original 
strip.  Denial  occurs  because  the  disruption  of  cracks, 
rubble,  and  craters  prevents  aircraft  operation. 


The  attack  generates  a  pattarn  of  craters,  that,  four 
at  a  time,  bound  tha  possibla  clear  operating  area.  Any 
one  of  the  bounded  areas  may  be  large  enough  to  support  TOL 
operations. 

Computing  the  probability  of  denying  such  a  clear 
area  depends  on  the  interaction  of  many  variables,  both 
deterministic  and  stochastic.  These  variables  were 
described  in  Chapter  III.  Two  analytical  methods  include 
order  statistics,  as  presented  with  the  earlier  commentary 
on  the  JMEM’s  method,  and  discrete  approximations,  used  by 
Pemberton  and  Hachida.  But  to  keep  AAPMOD  simple,  the 
current  analysis  uses  an  alternative  to  pure  statistical 
analysis:  a  numerical  search.  The  results  of  the  search 
are  either  success  or  failure,  destroyed  or  not-destr oyed , 
take-off  denied  or  not— denied.  These  results  are  called 
Bernoulli  variables,  and  are  characterized  with  the 
binomial  distribution.  This  is  the  type  of  analysis  for 
which  AAPMOD  is  optimized. 

Confidence  in  AAPMOD  AAPMOD  is  a  typical,  computer 
simulation.  It  uses  random  numbers,  random  variates,  and 
replication  to  produce  output.  Of  primary  interest  is  the 
probability  of  an  attack  denying  use  of  a  runway  (or 
runways).  Described  in  Chapter  III  is  the  chain  of 
probabilistic  events  that  interact  in  complex  fashion  to 
produce  weapons  damage  to  a  target.  These  interactions  are 
modeled  in  AAPMOD.  If  AAPMOD  is  run  enough  times,  the 
simulation  results  tend  to  be  wore  accurate .  And  Bernoulli 
tells  us,  that  as  the  number  of  replications,  n,  approaches 
infinity,  the  error,  d ,  between  the  true  denial  probability 
of  the  population,  and  the  sampling  probability,  approaches 
zero. 

But  what  is  enough?  And  earlier,  what  is  appropriate? 
Since  much  of  this  study  concerns  the  open  or  closed  status 
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of  a  runway,  the  problem  becomes  one  of  estimating  a 
proportion:  the  number  of  closures  per  number  of  attempts. 

Referring  to  Shannon’s  C 191  discussion  of  the  binomial 
distribution: 

Let  p  equal  the  true  probability  that  in  one  trial,  a  given 
attack  will  close  a  runway.  Let  q  ■  1  -  p  equal  the  true 
probability  the  attack  will  fail.  And  let  P  equal  the 
sample  probability  of  closure,  obtained  from  Monte  Carlo 
sampling. 

Rewriting  Bernoulli’s  theorem: 

I  P  -  p  \-ssd  as  »— teQO,  and  d — 

Enough,  or  appropriate,  is  when  the  user  can  stand  the 
probable  error  in  the  simulation  results.  If  the  user 
desires  90%  confidence  that  the  simulation  probability  of 
closure.  Pc,  does  not  differ  from  p,  by  more  than  0.09,  the 
problem  can  be  written  as: 

Pr  {  I  Pc  -  p  ltS0.0S  >  -  1  -oc»  0.90 

If  n  is  large  <  >  120  >,  and  if  neither  p  or  q  are  close  to 
zero  (  <  0.09  ),  the  binomial  distribution  can  be  closely 
approximated  with  the  normal  distribution.  Then  using  2^, 
the  two-tailed  standardized  normal  statistic  in  the 
following  formula,  one  can  determine  the  minimum  sample 
size  required:  (Ref . 19: 191-2) 


But  a  problem  remains.  These  accurate  results  are 
accurate  only  so  long  as  each  of  the  event  probabilities 
affecting  the  chain,  is  accurate.  Since  the  probability  of 
each  event  has  some  inaccuracy  associated  with  it,  there  is 
inherent  inaccuracy  in  the  simulation  results.  This  is  not 
to  say  that  the  inaccuracy  invalidates  AAPMOD,  but  that  the 


results  must  be  used  knowing  that  inaccuracies  exist. 

AAPMOD  offers  a  theory  describing  the  interactions  of 
airplanes,  weapons,  and  targets.  It  is  soundly  conceived. 
The  following  sections  will  show  that  AAPMOD* s  output  does 
bear  meaningful  relation  to  the  real  world  interaction  of 
attack  efforts  and  expected  target  damage. 

Program  Conversion 

Attack  Assessment  Program-Modif ied  (AAPMOD)  is  a 
pseudo-interactive,  Monte  Carlo  simulation  of  an  attack 
against  a  target  complex.  The  user  inputs  descriptions  of 
the  target  complex  and  the  attack,  and  the  Fortran  V 
program  returns  damage  assessment. 

AAPMOD  is  a  modification  to  Attack  Assessment  Program 
<AAP) ,  earlier  described  in  Chapter  II.  AAP  is  currently 
used  at  the  Armament  Development  Laboratory,  Eglin  AFB, 
Florida,  as  well  as  at  30-60  other  Air  Force  and  civilian 
contractor  locations.  The  Armament  Lab  has  been  studying 
airbase  suppression  by  conventional  weapons.  The  Lab  is 
primarily  concerned  with  the  sensitivity  of  damage  results 
to  changes  in  the  following  variables: 

1)  crater  radiusi 

2)  reliability  of  either: 

a)  weapon /dispenser  fuze  reliability,  or 

b)  submunition  fuze  reliability} 

3)  ballistic  dispersion  of  released  weapons} 

4)  footprint  of  cluster  weapons}  and 

3)  number  of  cluster-weapon  submunitions. 

The  above  factors  influence  early,  design-phase 
decisions.  Such  experimentation  corresponds  to  the  charter 
of  the  Armament  Lab:  to  develop  improved  conventional 
weapons.  However,  until  new  weapons  are  delivered  to  the 
operational  wings  of  TAC,  PACAF,  and  USAFE,  tactical 
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aircrew*  must  optimally  employ  current  inventory  weapons. 

As  discussed  in  Chapter  III,  damage  results  depend  on 
numerous  -factors  a-f-fecting  combat  weapons  deliveries. 

AAPMOD  provides  tacticians  and  aircrews  the  opportunity  to 

study  the  factors  that  are  under  their  control t  namely  the 
following: 

1)  weapons  load) 

2)  axis  of  attack; 

3)  probability  of  correct  aimpoint  identification; 

4)  definition  of  the  stick  pattern;  and 

3)  delivery  errors  (REP/DEP,  or  CEP). 

Each  of  these  factors  are  controlled  at  a  level  of 
command  no  higher  than  a  tactical  fighter-wing  commander. 

For  preplanned  targets,  or  after  study  of  results  of 
different  analyses,  both  crews  and  commanders  should  be 
able  to  optimize  these  variables,  and  produce  maximum 
damage  with  the  weapons  currently  available. 

AAPMOD  is  described  as  pseudo-interactive,  because 
the  bulk  of  interactive  communication  occurs  in  a  front-end 
program  called  AAPIN.  AAPIN  generates  a  laundered  file  of 
user  inputs  to  AAPMOD. 

AAP  was  received  from  Eglin,  and  with  comments,  con- 
si  sted  of  2,310  lines  of  Fortran  IV  source  code.  Table  I 
includes  a  listing  of  program  statistics. 

However,  to  be  useful  to  aircrews,  tacticians,  or  even 
commanders,  AAP  had  to  be  made  more  "friendly."  This 
implied  interactive.  Interactive  processing  could  avoid 
the  delays  associated  with  batch  mode,  such  as  preparing 
job  control  cards,  or  fetching  output  from  remote  files  or 
printers. 

Consequently,  a  primary  task  in  converting  AAPMOD  was 
to  reduce  its  loading  size.  New  input  limits  were  imposed. 
These  are  presented  later,  in  the  section  on  inputs.  Also, 
the  coding  of  AAP  was  upgraded  to  include  the  facilities  of 
Fortran  77.  For  example,  the  upgrade  improved  program 


TABLE  I 


Comparison  o-f  Program  Compilation  Statistics  2/ 


Program 

Unit 

Blank 

Labelled 

AAP 

Length 

Common 

Common 

Time 

(words) 

IwordsI 

(words) 

l»S£Sl 

Program 

Subroutine 

MAIN 

3,287 

35,757 

1,251 

6.041 

NORAN 

43 

0 

2 

.074 

INITL 

163 

35,757 

0 

.491 

SORT 

43 

0 

0 

.147 

100 

0 

0 

.208 

2,621 

0 

0 

.473 

2,  100 

0 

3 

1.016 

257 

0 

3 

.422 

264 

0 

3 

.455 

187 

0 

901 

.447 

332 

35,757 

0 

.717 

1,119 

35,757 

17 

1.574 

39 

35; 757 

338 

.066 

MOVE 

53 

0 

0 

.051 

NCOMP 

128 

35,757 

17 

.117 

Col umn 

Total s 

(«<ords  or 

•  secs) : 

10,736 

35.757 

1,251 

12.299 

(bits): 

644,160 

75,060 

.  60  bit  words  1 

60  bit  words  1 

2 

.86  Megabit 

s  (MB) 

ProQram 

Unit 

Blank 

Labelled 

Length 

Common 

Common 

Time 

(wordsl 

(words) 

(words) 

(secs) 

Program 

Subroutine 

:,Hs  .MlH 

1,882 

6,621 

1,228 

3.473 

M  *  i  i  M 

24 

0 

1 

.057 

INITL 

70 

6,621 

0 

.269 

SORT 

43 

0 

0 

.  152 

BLDS 

100 

0 

0 

.211 

v< 

2,632 

0 

0 

.507 

2,099 

0 

3 

1.033 

260 

0 

3 

.445 

264 

0 

3 

.461 

.455 

187 

0 

901 

321 

6,621 

0 

.715 

1  >  1  Si  B 

993 

6,621 

15 

1.325 

73 

6,621 

15 

.241 

Column 

Totals 

9.344 

(Mards  or  secs) : 

8,948 

6,621 

1,231 

(bits): 

536,880 

397,260 

73,860 

Total  Loader  Req’ts:  16.800-Decimal .  60  bit  words 

40640— Octal .  60  bit  words 

1. 

01  MB 

1 

I 

Core  Memory  Requirement  Reduced  65% 

1 

_ ] 

2/  Compiler  optimized  the  binary  file  at  LEVEL-2, 
and  supressed  DEBUS  utilities. 
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structure,  enabling  later  embel 1 i shment  of  the  program. 

The  resulting  statistics  for  AAPMQD,  compiled  with  the  same 
options  as  OLD AAP,  are  also  presented  in  Table  I.  3/ 

A  large  part  of  the  3,287  words  of  AAP  PROGRAM— MAIN 
was  trapping  errors,  and  producing  output  as  directed  by 
user  options.  In  response,  AAPIN  was  developed  to  control 
inputs.  Additionally,  long  output  versus  short  output, 
random  number  storage  and  other  "nice",  but  costly  output 
options  were  eliminated.  For  example,  the  results  of  the 
conversion  included  a  42.6%  reduction  in  words  in  PROGRAM — 
MAIN.  Elimination  of  about  50,  formatted,  input  error 
messages  alone  saved  254  words. 

To  further  reduce  the  size  of  the  program,  super¬ 
fluous  routines  such  as  MOVE  and  CATLOG  were  cut.  Nowhere 
in  the  program  was  there  a  call  to  SUBROUTINE — MOVE. 
Discussion  with  Eglin  indicates  the  routine  may  be  left 
over  from  earlier  versions,  where  it  may  have  been  used  to 
move  the  minimum  clear  TOL  rectangle,  while  executing  the 
clear  area  search. 

SUBROUTINE — CATLOG  was  an  emergency  save  routine. 
Armed  by  an  early  call  to  CYBER  intrinsic  routine,  RECOVR, 
CATLOG  would  execute  if  AAP  abnormally  terminated  for  a 
reason  other  than  a  fatal,  run-time  error.  Such 
termination  might  have  occurred  if  the  requested  job  time 
was  too  short  or  the  operating  system  glitched. 

This  study  continued  to  use  the  CDC  CYBER,  and  CYBER 
reliability  in  interactive  execution  was  considered  high. 
Class  polls  revealed  no  instance  of  debugged,  operational 
programs  abnormally  terminating  during  interactive 


3/  BLOCK- IF  statements  replaced  many  of  the 
originally  110  GO  TO’s  in  PROGRAM — MAIN  of  AAP.  AAPMOD 
retained  only  28  60  TO’s.  Used  at  weapon  reliability 
check-points,  these  28  avoid  sixth  and  seventh  level  IF 
statements,  oy  stepping  loop  controls  when  weapons  fail  to 
release  or  properly  function. 


nunjniwii  wrhi  wuluusiw  w  a 


'.V.V.r  rTT  7T  TT^TTT’  -TV'-l 


sessions.  However,  the  intent  of  this  work  is  to  make 
AAPMOD  transportable,  for  use  by  MAJCOM  level  or  lower, 
where  CYBER  access  may  not  be  available.  Therefore,  to 
reduce  program  size  and  maintain  transportability,  and  to 
permit  faster  execution  times,  intermediate  data  saves  were 
el i mi nated . 

AAPIN 

A  large  part  of  the  utility  of  AAPMOD  comes  from  the 
front-end,  user— f ri endl y  AAPIN.  AAPIN  not  only  makes  it 
easy  to  run  AAPMOD,  it  also  reduces  loader  requirements  and 
enables  fast,  interactive  execution.  To  facilitate  their 
discussion,  inputs  to  AAPMOD  will  be  discussed  under  the 
topic  of  AAPIN. 

AAPIN  generates  the  input-file  for  AAPMOD.  As 
discussed  earlier,  a  significant  part  of  the  main  program 
loader  size  reduction  is  due  to  elimination  of  input  error 
trapping,  now  accomplished  in  AAPIN.  Therefore,  the  file 
produced  by  AAPIN  can  be  considered  "laundered",  and  the 
user  can  expect  normal  execution  of  AAPMOD. 

There  are  basically  four  categories  of  inputs  to 
AAPMOD.  These  categories  are  as  follows: 

1 )  Program  Control , 

2)  Target  Data, 

3)  Attack  Data,  and 

4)  Crater  Size. 


Program  Controls.  The  user  can  control  certain 
aspects  of  the  attack  simulation.  The  most  obvious  is 

control  of  the  random  number  generation  by  setting  its 
seed.  Siven  the  nature  of  AAPMOD,  the  user  can  change 
ax is-of -attack  and  not  affect  the  random  number  stream. 
Similarly,  Individual  weapon  reliabilities  can  be  changed 
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Table  XX 

Execution  Tines  -for  Benchmark  Runs 


WITH  AREA  TOTAL 

WITHOUT  AREA  TOTAL 

Bench 

18.53  secs 

19.43  secs 

83.98  secs 

85.08  secs 

Test 

0.98  secs 

1.01  secs 

10.47  secs 

10.45  secs 

without  losing  random  number  stream  synchronization  between 
runs.  However,  due  to  Fortran’s  lack  of  different  random 
number  streams,  some  other  changes  lose  synchronization. 
Specifically,  if  either  aircraft  survivability  or  cannister 
opening  reliability  change,  synchronization  is  lost. 
Ideally,  reliabilities  or  survivability  should  be  on  one 
stream,  and  aimpoint  errors  and  weapon  ballistic  errors 
should  be  on  another. 

Another  obvious  input  factor  is  the  maximum  number  of 
iterations.  However,  a  facility  in  the  program  enables  a 
subroutine  of  AAP/AAPMOD  to  reduce  the  number  of  iterations 
accomplished.  The  operation  of  SUBROUTINE — NCOMP,  that 
accomplishes  the  reduction,  will  be  discussed  later.  But 
upon  input,  if  the  user  requests  over  200  samples,  and 
agrees  to  allow  AAPMQD  to  reduce  sample  size,  the  user  is 
prompted  for  the  f or  their  desired  confidence.  There¬ 

after,  the  user  enters  his  allowable  error:  the  difference 
between  the  Monte  Carlo  produced  estimate  of  probability 
and  the  true  population  probability. 

The  next  control  is  the  interval  few  output  of  inter¬ 
mediate  results.  This  was  a  convenient  development 
facility,  and  now  can  be  used  to  assess  response  variance. 

Execution  time  is  severely  affected  by  whether  or  not 
the  user  chooses  to  compute  the  total  area  of  crater 
damage,  per  target  element.  Runtimes  presented  in  Table  II 
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document  the  additional  time  required  to  compute  the  total 
area  damaged.  The  increase  is  due  to  execution  time  of 
checking  for  overlapping  craters.  When  developing  new 
weapons,  such  data  is  an  important  consideration.  Also,  if 
AAPMOD  is  run  tactically,  and  the  user  wants  to  study  time 
required  for  repairs,  such  data  is  needed.  But  for  the 
expected  utility  of  AAPMOD,  this  option  may  normally  be 
suppressed. 

This  concludes  the  section  on  program  control  inputs. 
The  discussion  continues  with  the  input  of  target  descrip¬ 
tions. 

Target  Complex .  The  following  three  sections  will 
discuss  program  inputs  and  enable  fast  development  of 
input  files.  The  user  can  then  quickly  analyze  the  outcome 
of  defined  missions  against  defined  targets.  This  section 
on  definition  of  the  target  complex  is  first. 

Initially,  the  user  inputs  the  numbers  of  targets  and 
groups.  Although  some  inputs  become  redundant,  they  are 
included  for  error  trapping,  to  ensure  the  user  enters 
values  consistent  with  his  intent. 

Given  the  requirement  for  smaller  loader  require¬ 
ments,  the  most  obvious  savings  stems  from  reducing  the 
large  arrays  used  in  AAP.  Implicit  with  reducing  array 
size  is  reducing  capability.  Table  III  tabulates  the  new 
limits  of  AAPMOD,  and  contrasts  them  to  AAP. 

Inputting  target  data  is  straightforward,  as  AAPIN 
leads  the  user  through  all  data  required  to  define  the 
coeplex.  The  target  complex  is  input  referenced  to  a 
positive  right-hand,  rectangular  coordinate  system,  defined 
by  the  user.  Since  most  assessments  will  include  runway 
attacks,  it  is  recommended  the  center  of  the  runway  form 
the  center  of  the  target-complex  coordinate  system.  Either 
feet  or  meters  can  be  used  in  AAPMOD,  but  the  user  must  be 


Tabic  III 

Capability  Comparison 


AAPMOD 

LIMIT 

AAP 

112 

30 

Target  Elements 
Pavements 

207 

43 

3 

TOL  Surfaces 

3 

1 

Attacks 

10 

32 

Passes / At t ac k 

64 

13 

Target  Broups 

20 

12 

Weapon  Patterns 

16 

12 

Weapons/Pattern 

36 

11 

Hardness  Codes 

11 

6 

Warhead  Codes 

6 

1 

Reattack  Passes/ Aircraf t 

Unlmtd 

consistent  throughout. 

AAPMOD  permits  trade-off  studies  between  attacking 
the  take-off  and  land  (TOL)  surfaces  or  their  approaches. 

On  entry,  AAPIN  categorizes  pavements  as  either  TOL  capable 
or  taxi-only  capable.  When  a  prompt  requests  the  minimum 
clear  length  for  TOL  operations,  entering  "0"  flags  the 
pavement  as  a  minor — taxi way.  The  search  for  the  minimum 
clear  TOL  area  will  then  be  suppressed.  But  in  any  case, 
AAPMOD  does  search  for  meandering  taxi  capability,  to 
determine  if  approach  to  the  clear  strip  is  possible. 

Crater  Data.  Damage  assessment  in  AAPMOD  is  done 
by  checking  craters  from  all  detonating  warheads,  and 
assigning  damage  to  targets  that  intersect  the  crater. 

A  single  crater  can  damage  more  than  one  target  element. 

Cratering  is  the  damage  mechanism  of  AAPMOD.  The 
user  inputs  the  expected  crater  size  for  the  interaction  of 
warhead  code,  target  hardness  code,  and  type  of  impact 
engagement  <i.e. ,  hit  or  near-miss).  This  is  an  important 
concept.  The  same  warhead,  a  500-pound  BP  bomb,  for 
example,  can  have  different  warhead  codes,  against  the  same 
hardness  code,  if  by  changing  impact  velocity  or  angle,  the 
size  of  the  crater  varies.  < After  careful  consideration, 


Figure  10  Depiction  o-f  Crater  Damage  Denying  Aircra-ft 
Operations  from  a  Pavement. 

it  was  decided  that  internally  computing  crater  sizes  was 
not  worth  the  increased  execution  times  and  loader 
requirements  such  computations  require.  To  appreciably 
gain  precision,  the  weapon  trajectory  would  have  to  be 
modeled  to  a  level  o-f  detail  beyond  that  found  in  the  rest 
of  the  program.  An  intermediate  choice  could  have  been  to 
input  impact  velocity  and  angle,  but  that  data  is  no  more 
readily  available  than  is  crater  size.) 

The  user,  guided  by  AAPXN,  creates  the  3-D  crater 
array  needed  by  AAPMOD.  For  each  combination  of  hardness 
code  and  warhead  code,  AAPIN  requires  two  crater  diam¬ 
eters.  Xf  the  hardness  code  applies  to  a  pavement,  the  two 
sizes  relate  to  the  size  of  the  disruption  severe  enough  to 
deny  taxi  operations,  or  to  deny  TOL  operations.  A  profile 
view  of  a  crater  in  a  pavement  is  provided  in  Figure  10, 
and  illustrates  the  requirement  for  the  two  dimensions. 
Whereas  an  aircraft  may  be  able  to  slowly  taxi  over  small 
cracks,  perhaps  with  the  aid  of  a  ground  marshal ler,  high¬ 
speed  take-off  or  landing  operations,  with  its  less  precise 
tire  positioning,  will  be  denied  over  a  much  larger  area. 


32 


Figure  11  II lustration  of  3-D  Cratsr  Radius  Storage  Array. 

Conversely!  when  discussing  structures  or  buildings, 
the  crater  will  generally  be  sealler  for  near  misses  than 
for  direct  hits.  The  difference  is  due  to  the  less  severe 
weapons  effects  of  the  near-miss  over  the  direct  hit. 

As  mentioned  earlier,  crater  size  is  one  of  the 
Armament  Lab’s  primary  considerations  in  weapons  develop¬ 
ment,  so  crater  size  drives  many  of  the  analyses  with  AAP. 
Crater  dimensions  are  normally  supplied  by  the  weapon 
developer.  Since  Eglin  is  often  tasked  to  determine 
sensitivity  to  varying  crater  size,  the  tactical  user  of 
AAPHOD  can  obtain  crater  size  either  from  classified 
weapons  documents,  or  from  classified  tables  produced  at 
Eglin  during  weapon  tests. 

To  illustrate  the  crater  array,  the  data  of  the  TEST 
and  BENCH  programs  is  depicted  in  Figure  11.  These  four 
programs  considered  damage  due  to  three  different  hardness 
cades  and  two  different  warhead  codes. 

AAPHOD  uses  square  craters  when  assessing  damage.  The 
craters  are  aligned  with  the  user  input  tar get -element 
orientation  when  evaluated  for  hit/near-miss  status.  Since 
tactical  planners  generally  think  of  circular  craters,  the 
user  of  AAP1N  can  select  the  input  option.  If  square 
dimensions  are  available,  one  half  the  side  of  the  square 
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Figure  12  Campari son  of  Square  versus  Circular  Craters. 

is  entered.  Else,  i-f  crater  diameters  are  available  the 
user  inputs  the  crater  radius.  AAPIN  then  transforms  the 
radius  into  an  equivalent  square  dimension.  The  square 
dimension  is  written  to  the  input  file  as  one-half  the 
length  of  a  side  of  a  square,  having  the  same  area  as  that 
of  the  user’s  circle.  The  calculation  simply  multiplies 
the  input  radius  by  SCRT(PI/4).  In  illustration,  if  the 
user  had  8*  square  craters,  they  would  enter  4’,  as 
one-half  length  of  a  side.  If  the  user  instead,  had 
craters  with  a  4*  radius,  AAPIN  would  store  3.54’,  so  that 
AAPMOD  will  use  a  crater  area  of  50  sq  ft,  just  as  if  the 
4*  radius  had  been  used. 

The  use  of  square  craters,  aligned  with  the  target 
axis  facilitates  the  search  routines  to  determine  open  or 
closed  status  of  runways.  And,  as  Figure  12  demonstrates, 
the  approximation  is  good.  There  is  equal  likelihood  that 
damage  will  be  missed  when  using  squares,  such  as  to 
element  A,  as  is  there  the  likelihood  that  damage  will  be 
counted  when  it  should  not,  as  with  B.  Over  the  course  of 
the  simulation,  the  average  error  will  null  itself  out. 


Attack  Data.  Finally,  the  user  inputs  the  mission 
scenario.  AAPMQD  restricts  the  analysis  to  one  attack. 
Considering  the  purpose  of  AAPMOD,  this  is  not  unreason¬ 
able.  Tacticians  and  planners  at  a  level  lower  than  full 
Allied  Tactical  Air  Force,  will  exercise  the  program. 
Realistically,  the  limited  f ighter-bomber  resources, 
available  to  NATO,  or  even  a  wing  commander,  will  not  allow 
large-scale,  repeated  attacks  against  the  same  target. 
Therefore,  single  attack  results,  in  the  form  of  proba¬ 
bility  of  cutting  each  TOL  surface,  probability  of  denying 
all  TOL  operations,  and  the  expected  number  of  craters  that 
must  be  repaired  to  regain  TOL  capability,  will  provide 
adequate  planning  data  to  effectively  employ  this  level  of 
force  during  conflict. 

A  further  restriction  of  AAPMOD  concerns  the  number 
of  reattacks  permitted  of  any  aircraft.  AAPMOD  allows  a 
maximum  of  one  reattack.  Again,  this  is  not  unreasonable. 
Tactically,  even  one  pass  might  be  too  many,  in  a  high 
threat  environment.  Very  few  crews  will  intentionally 
withhold  weapons,  and  plan  to  fly  a  second  or  third  pass 
over  a  target.  Not  only  have  they  lost  the  favor  of 
surprise,  but  the  defenders  still  alive  at  the  target  are 
pretty  angry! 

As  developed,  AAP1N  is  a  user  friendly,  input  file 
generation  program  for  AAPMOD.  AAPIN  will  allow  crews, 
commanders,  and  planners  to  use  AAPMOD,  to  study  tactics, 
the  weapons  they  have  available,  and  whatever  targets  they 
might  be  directed  to  attack,  and  to  optimally  attack  the 
elements  of  the  target  to  produce  the  best  damage.  AAPMOD, 
exercised  at  higher  operational  levels,  such  as  MAJCOMS  or 
at  advanced  fighter  weapons  schools,  can  also  prepare  the 
decision  makers  to  make  realistic  weapon  system  assign¬ 
ments,  so  to  optimally  use  their  limited  attack  assets.  The 
discussion  of  computer  implementation  continues  with  the 


discussion  of  ths  sxscution  of  AAPMOD 


AAPMOD 


Given  the  defined  target  complex,  the  defined  attack 
parameters,  Mid  the  defined  crater  sizes,  AAPMOD  assesses 
expected  damage  to  the  target  complex.  It  is  superior  to 
some  alternative  assessment  programs  in  that  it  considers 
collateral  damage,  in  addition  to  assessing  the  damage 
expectancy  to  the  desired  target.  That  is  to  say,  if  a 
weapon  or  stick  of  weapons  miss  their  mark,  they  may  cause 
desirable,  though  unintended,  damage  to  other,  closely 
located,  target  elements.  Given  such  design,  AAPMOD 
analyzes  the  target  and  the  attack  as  part  of  an  inter¬ 
acting  system,  and  not  as  isolated  elements  or  entire 
systems  of  themselves. 

However,  a  disadvantage  of  AAPMOD  is  its  simplified 
use  of  cratering  as  the  damage  mechanism.  Cratering  is  the 
classical  damage  considered  for  pavements.  And  it  is 
expected  that  most  studies  run  with  AAPMOD  will  key  on 
runway  or  taxi  surface  damage.  Under  these  circumstances, 
this  disadvantage  is  minimized.  However,  the  application 
of  AAPMOD  to  building,  or  non-pavement  type  structure 
damage,  is  less  than  optimal.  AAPMOD  iteratively  subtracts 
the  intersecting  area  of  a  crater  from  the  remaining, 
undamaged  area  of  the  target.  The  final  output  is  simply 
total  area  damaged.  No  consideration  is  given  to 
individual  areas  of  target  vulnerability.  Also,  the 
program  does  not  specifically  consider  either  the  blast  or 
the  f ragment-spray  damage  mechanisms. 

Whereas  cratering  is  adequate  in  analysis  of  area 
targets.  Mid  can  possibly  be  extended  to  uniformly 
vulnerable,  hardened  buildings,  it  is  insufficient  in  the 
assessment  of  damage  to  softer  targets  like  radar  vans, 
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cargo  trucks,  or  communication  devices.  Nevertheless,  when 
estimates  ere  required,  AAPMOD  can  be  made  to  work  for 
structural  damage.  One  must  assume  cookie-cutter  damage 
functions.  Cookie-cutter  implies  the  delta  function,  and 
means  that  inside  a  defined  range  the  target  is  killed,  and 
beyond  that  range  the  target  survives.  But  then  the  output 
will  not  be  as  rigorous  as  that  offered  in  the  analysis  of 
pavements. 

The  design  of  AAPMOD  is  simple.  Monte  Carlo 
techniques  simulate  weapons  deliveries  according  to 
specified  parameters,  such  as  attrition,  accuracy,  fuze 
reliability  and  the  other  variables  discussed  in  Chapter 
III.  Each  Monte  Carlo  loop  represents  a  planned  attack. 

An  attack  consists  of  up  to  32  aircraft,  flying  up  to  32 
weapons  delivery  passes  across  the  target.  Each  weapons 
pass  is  described  by  aimpoint  and  the  other  parameters 
discussed  under  the  section  on  inputs,  this  chapter.  As 
each  prss  is  made,  impact  locations  are  simulated,  and 
each  target  is  checked  for  a  hit  or  near-miss.  Both  are 
recorded  and  the  attack  continues.  At  the  end  of  the 
attack,  overall  damage  to  each  target  element  is  assessed. 
Results  for  each  iteration  are  accumulated,  and  an  average 
and  standard  deviation  of  damage  expectancy  is  computed. 
Finally,  a  carry-over  from  AAP  that  has  been  retained  to 
enable  future  embellishment,  considers  post-attack,  airbase 
repair  capability. 

Program  Execution.  AAPMOD  is  designed  with  struc¬ 
tured  programming  techniques.  The  clarity  built  into 
AAPMOD,  over  AAP,  will  enable  later  analysts  to  further 
modify  and  enhance  AAPMOD  to  produce  output  precisely  as 
desired.  The  discussion  of  program  execution  emphasizes 
PROGRAM — MAIN,  but  is  followed  with  a  brief  listing  of 
subroutines  and  program  outputs. 
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Execution  of  AAPMOD  closely  resembles  execution  of 
AAP.  Immediately  after  input  and  input  echo,  AAPMOD  sets 
some  control  flags,  and  begins  the  sampling  process.  The 
iterations  of  the  attack  form  the  first  level  of  program 
control.  This  is  followed  by  loops  on  attack  passes.  Each 
pass  is  first  assessed  for  survival  of  enroute  defenses. 

If  the  aircraft  survives  to  the  release  point,  weapons 
release  occurs  according  to  the  defined  weapon  pattern  for 
the  pass  number.  All  weapons  are  released,  but  the 
formation  of  craters,  and  their  location,  is  the  primary 
stochastic  assignment  of  AAPMOD.  Each  weapon  must  pass  a 
test  for  fuze  functioning.  If  the  weapon  is  a  point-impact, 
unitary  weapon,  a  crater  is  assigned.  If  the  weapon  is  a 
cluster  unit,  the  probabilistic  check  represents  cannister 
opening.  If  this  first  reliability  check  fails,  the  rest 
of  the  weapon  loop  is  by-passed,  and  the  next  weapon  of  the 
pass  is  examined. 

If  the  weapon  functioned  properly,  the  center  of  its 
impact  is  located.  For  point  weapons,  this  is  the  point  of 
impact.  For  area  weapons,  this  is  the  center  of  the 
footprint  of  the  submunitions  encased  in  the  weapon.  For 
precision  guided  munitions  <PGM) ,  the  point  of  impact  is  a 
stochastic  variable  drawn  from  one  of  three  distributions. 
The  X  and  Y  coordinates  are  drawn  from  normal  distributions 
with  parameters  representing  optimal  guidance,  sub-optimal 
guidance,  and  ballistic,  gross-errors.  AAPMOD  first 
determines  the  type  of  guidance  of  the  PGM,  then  draws 
corresponding  X-Y  errors. 

The  process  is  less  elaborate  for  unguided  weapons, 
such  as  bombs,  released  singly  or  in  a  stick,  or  for 
CBU’s.  The  aimpoint  stored  for  the  attack  in  both  cases  is 
first  adjusted  for  aircraft  and  pilot  induced  errors.  If 
the  pattern  calls  for  a  single  release,  the  location  of  the 
single  weapon  is  displaced,  representing  ballistic  disper- 
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sion  of  the  weapon’s  free-fall  (discussed  in  Chapter  III). 
If,  however ,  the  weapon  pattern  was  a  stick  release,  the 
adjusted  aiepoint  fores  the  eean  point  of  impact  (MPI).  In 
other  words,  the  stick  of  weapons  fall  in  a  pattern 
centered  on  the  MPI.  Again,  the  discussion  in  Chapter  III 
addressed  the  development  of  the  pattern  of  impacts 
resulting  from  a  stick  release. 

Once  the  MPI  of  the  stick  is  defined,  the  locations 
of  each  impact  in  the  stick  are  adjusted  by  separate, 
individual  draws  from  the  normal  distribution  representing 
ballistic  dispersion. 

The  numerous  impacts  from  CBU’s  carry  this  concept 
one  step  further.  By  their  nature,  the  above  described 
process  determines  the  center  of  the  footprint,  or  the 
center  of  the  area  covered  by  the  distribution  of  submu¬ 
nitions.  One  of  the  assumptions  of  AAPMOD,  and  one  of  the 
limitations  of  the  analysis,  appear  in  the  location 
assignment  of  CBU  bomb lets.  The  assumption  is  that  the 
distribution  of  impacts  over  the  described  footprint  is 
uniform.  The  limitation  is  that  footprint  voids,  or  areas 
within  a  footprint  without  bomblet  coverage,  are  only 
permitted  when  processing  elliptical  footprints,  and  not 
rectangular  footprints. 

Initially,  each  bomblet  is  checked  for  fuze 
functioning.  If  the  submunition  worked,  X-Y  coordinates  are 
assigned  according  to  the  assumption,  limitation,  and 
weapon  pattern  parameters  entered  by  the  user. 

Whatever  the  type  or  size,  the  location  of  each 
crater  is  compared  to  every  target  element,  to  determine 
hit/miss  status.  Hits  are  stored,  and  the  program 
continues  in  this  series  of  loops  until  the  attack  is 
complete. 

Overall,  each  iteration  of  Monte  Carlo  sampling  can 
be  described  with  the  following  series  of  nested  loops: 
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00  (for  nch  pass) 

DO  (for  each  weapon) 

DO  (for  sach  warhead) 

DO  (for  sach  target  element) 
check  for  a  hit/near-miss 
save  hits/near-misses 
NEXT  element 
NEXT  warhead 
NEXT  weapon 
NEXT  pass 


When,  within  a  sampling  iteration,  the  attack  has 
been  flown  out,  the  program  enters  assessment  phase. 
Assessing  building  damage  is  easiest,  and  will  be  discussed 
first,  followed  by  minor  taxi-ways,  followed  by  TOL  capable 
surfaces. 

When  assessing  building  damage,  AAPHOD  computes  the 
total  cratered  area  of  the  building  or  structure.  Each  hit 
or  near-miss  reduces  the  effective  area  of  the  structure 
with  a  call  to  SUBROUTINE — BLDG.  Output  of  accumulated 
area  only  occurs  when  the  long  computation  of  total  damaged 
area  is  requested.  Currently,  AAPMOD  has  been  designed  to 
compute  total  damage,  but  due  to  some  unchanged  logic  Df 
the  original  AAP,  such  printout  is  suppressed  if  compu¬ 
tation  of  total  area  of  pavement  damage  is  suppressed. 

The  user  is  also  provided  damage  area  data  concerning 
target  element  groups.  As  entered,  each  target  element 
belongs  to  a  target  group.  Perhaps  several  target  elements 
are  identical,  except  for  location.  An  example  may  be 
three  or  four  POL  tanks,  or  a  set  of  redundant  approach 
aids.  AAPMOD  also  computes  output  statistics  for  each 
target  group. 

The  assessment  of  damage  to  pavements  is  more 
complex.  Target  elements  that  are  not  buildings  or 
structures  are  pavements.  And,  if  the  required  clear 
dimensions  exist  anywhere  on  the  original  surface,  though 
some  damage  may  have  occurred,  the  function  of  the  surface 
has  not  been  denied. 


The  user’s  choice  first  controls  whether  a  call  to 
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SUBROUTINE — QVLAP  computes  the  total  area  of  cratar  damage 
for  the  pavaaant  of  intarast>  The  tina  considarations  of 
this  decision  hava  baan  addrassad  aarliar.  The  assassaant 
than  continues  with  a  decision.  If  the  pavaaant  is  a  minor 
taxi-way,  without  taka-off  and  land  (TOL)  capability,  a 
call  to  SUBROUTINE— MI NCW  searches  for  a  Meandering  path  of 
at  least  the  minimum  taxi  width.  If  a  clear  meandering 
path  is  not  found,  AAPMOD  will  repair  a  clear  path.  The 
program  will  sum  the  area  of  crater  disruption  that  must  be 
repaired  to  enable  taxi  operations. 

If,  however,  the  pavement  is  a  runway,  or  at  least 
one  of  the  three  allowable  TOL  capable  surfaces,  the 
assessment  algorithm  delays  the  search  for  a  meandering 
path.  Some  bookkeeping  takes  place  as  codes,  counters,  and 
sums  are  initialized.  Then,  initialization  is  followed 
with  a  call  to  SUBROUTINE — CLSTRP.  CLSTRP  searches  for  a 
clear  operating  area.  If  none  exists,  the  runway  is  cut, 
and  the  area  of  crater  damage,  that  must  be  repaired  to 
enable  TOL  operations,  is  computed. 

The  assessment  for  the  clear  strip  requirement  is 
repeated  for  up  to  three  TOL  capable  surfaces.  In  the  real 
world,  the  airfield  stays  open  if  any  of  the  three  surfaces 
are  not  cut.  Similarly,  the  airfield  will  reopen  if  any  of 
the  three  surfaces  are  repaired.  Therefore,  AAPMOD  com¬ 
putes  cumulative  statistics  for  the  probability  of  denying 
a  clear  strip  on  all  three  TOL  surfaces.  (Unless  the 
attack  reflects  substantial  efforts,  this  probability  is 
usually  low.)  Also,  AAPMOD  offers,  similar  to  the  taxi 
results,  an  expected  number  of  craters  that  must  be 
repaired  to  regain  field  operations. 

However,  it  is  felt  that  as  is,  the  expected  number 
of  craters  is  deceiving.  Currently,  the  output  value 
simply  reflects  the  cumulative  number  of  craters  actually 
denying  TOL  capability  from  the  easiest,  minimum  clear 
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strip  to  repair,  divided  by  the  number  of  samples.  So  on 
iterations  where  the  runway  is  left  open,  a  zero  is  added 
to  the  sum.  An  embellishment  to  AAPMOD,  when  more  accurate 
consideration  is  required  of  repair  capability,  would  be  to 
determine  a  more  appropriate  computation  for  expected 
crater  area  to  repair. 

Finally,  assessment  includes  one  more  search.  After 
computing  the  probability  of  denying  TOL  capability  for  the 
airfield,  AAPMOD  computes  the  cumulative  number  and  area  of 
craters,  requiring  repair,  to  enable  approach  to  the 
easiest  minimum  strip  to  repair.  But  again,  this  figure  is 
a  total  divided  by  the  number  of  iterations. 

Assessment,  as  described  above,  occurs  in  each 
iteration  of  the  Monte  Carlo  loop.  Then,  at  the  conclusion 
of  the  assessment ,  AAPMOD  processes  the  data.  Statistics 
collected  along  the  way  include  real  values  such  as  areas, 
but  also  some  integer  counts.  Additionally,  squares  of 
values  are  collected,  to  be  later  used  to  provide  standard 
deviations  (S/D)  of  some  results. 

At  user  defined  output  intervals,  or  by  default  at 
200  samples,  the  data  is  processed,  and  printed  to  file. 
After  the  200th  iteration,  AAPMOD  may  call  SUBROUTINE— 
NCQMP,  to  determine  the  additional  iterations  required  to 
ensure  the  user  specified  accuracy.  If  required,  addition¬ 
al  samples  are  taken,  and  again,  output  is  printed  on 
interval  or  at  program  completion. 

As  shown,  execution  of  PROGRAM — MAIN  is  straight¬ 
forward.  AAPMOD  uses  very  few  assumptions  or  approxi¬ 
mations:  none  beyond  those  previously  addressed. 

The  next  part  of  this  section  presents  details  of 
specific  subroutines  used  by  AAPMOD.  These  details  may  be 
omitted  by  the  less  technically  oriented  reader.  However, 
the  chapter  resumes  later,  with  a  discussion  of  the  model 
outputs. 
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TRISUB:  This  subroutine  provides  the  random  variates 
-for  the  aimpoint  error.  The  routine  draws  from  a 
triangular  distribution,  taken  from  Law  and  Kelton 
(Ref . 12:261) .  The  subroutine  is  hardwired  for  a  mean  of 
zero,  and  high  and  low  extremes  of  +/-  1,000’. 

NOR AN:  An  older,  proven  generator  for  normal,  random 
deviates.  The  technique  uses  the  exact  inverse  method, 
proposed  by  Box  and  Muller.  Shannon  C193  considers  the 
method  "accurate,  easy...,  and...  fast.",  while  Law  and 
Kelton  C121  feel  the  routine  should  be  replaced  by  more 
efficient  methods. 

Based  on  limited  calls  to  NQRAN,  not  exceeding  300 
per  iteration,  it  was  decided  to  retain  the  BoxHIuller 
method.  Later,  if  AAPMOD  is  implemented  on  a  slower 
computer,  consideration  should  be  given  to  replacing 
MORAN. 

SORT:  Calls  to  SORT  arrange  the  arrays,  or  parts  of  the 

arrays  of  hits  or  near  misses,  in  ascending  numerical 
order.  Various  keys  for  the  sort  are  set  by  the  order  of 
arguments  passed  from  the  calling  routine. 

BLDG:  SUBROUTINE — BLDG  assesses  the  crater  damage  occur¬ 

ring  to  buildings.  The  call  is  made  with  the  complete  set 
of  craters,  intersecting  the  given  target  element,  passed 
as  arguments.  Within  the  routine,  each  crater  successively 
reduces  the  area  of  the  building  remaining.  With  each  area 
reduction,  the  length  and  width  of  the  structure  are 
reduced  in  the  original  ratio  of  length  to  width  of  the 
building. 

CLSTRP:  CLSTRP  assesses  denial  of  TOL  capability.  Recall 
from  Chapter  III  that  different  denial  potential  exists  for 
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a  given  sat  of  cr stars,  dapending  on  whether  the  denial 
affects  taxi  or  TOL.  CLSTRP  searches  for  a  clear  area  of 
the  minimum  clear  dimensions  input  by  the  user.  AAPMQD 
eoves  a  rectangle  over  the  original  runway  to  see  if  the 
clear  area  exists.  The  clear  area  must  be  a  rectangle. 

While  performing  the  search,  CLSTRP  also  records  the 
area  of  craters  intersecting  the  moving  rectangle.  If  the 
current  location  has  less  crater  area  than  the  previous, 
the  current  block  becomes  the  "easiest  strip  to  repair." 

If  a  clear  block  is  found,  the  runway  is  open  and  crater 
area  is  zero. 

HINCW:  MINCW  searches  for  a  meandering  taxi  path.  The 

hits  array  is  passed  to  MINCW  after  being  sorted  by  X 
coordinates.  The  subroutine  first  partitions  the  search 
into  a  number  of  subproblems.  A  subproblem  is  a  group  of 
craters  with  X  distance  separations  all  less  than  the 
minimum  taxi  width.  Thereafter,  each  subproblem  is  checked 
for  a  cut  that  denies  the  required  minimum  width  between 
craters  across  the  pavement. 

CHECK:  CHECK  is  called  by  MINCW  to  perform  the  check  for 
the  cut,  once  the  subproblem  has  been  partitioned. 

BETWN:  BETWN  is  further  called  by  CHECK  to  determine  if  an 

aircraft  can  taxi  between  two  craters.  BETWN  considers  the 
capability  of  the  aircraft  to  meander  its  way  between  the 
craters. 

OVLAP:  OVLAP  is  a  time  consuming  search  for  the  true  area 
of  crater  damage.  The  subroutine  searches  for  overlapping 
areas  of  craters,  and  reduces  the  damage  area  by  the  area 
of  overlap.  OVLAP  is  costly  in  execution  time. 
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REPAIR:  Based  on  the  user  entered  priority,  REPAIR  repairs 
cratara.  Its  -function  in  AAP  Mas  nore  important  than  in 
AAPMOD.  AAP  allOMad  savaral  attacks,  with  a  defined  capa¬ 
bility  of  the  airbase  to  repair  craters  between  attacks. 
REPAIR  simply  computes  this  number,  and  eliminates  the 
repaired  craters  from  the  hits  array.  By  virtue  of  the  one 
attack  limitation  of  AAPMOD,  REPAIR’S  utility  is  decreased. 
However,  it  has  been  retained  to  enable  flexibility  if 
future  modifications  to  AAPMOD  are  required. 

RESLTS:  As  the  above  routines  assess  the  damage  to  the 

complex,  data  is  stored  in  separate  arrays.  As  mentioned 
earlier,  data  is  stored  as  both  a  simple  measure,  and  as  a 
squared  value.  Such  storage  simplifies  the  work  of  RESLTS, 
reducing  its  task  to  simple  calculation  of  means  and 
standard  deviations  (S/D).  Also  because  of  the  summations, 
calls  to  RESLTS  only  occur  at  user  selected  output 
intervals,  or  by  default  at  program  termination. 

NCONP:  NCOMP  computes  the  number  of  iterations  required 

for  the  Monte  Carlo  loop.  With  user  consent,  NCOMP  can 
reduce  the  number  of  samples  used  for  the  program  run. 

As  mentioned  earlier,  the  open-closed  status  of  any 
one  runway  or  TOL  surface,  is  singly  a  Bernoulli  trial. 

But  the  call  to  NCOMP  occurs  after  iteration  number  200,  so 
the  distribution  of  sample  results  can  be  approximated  with 
a  normal  distribution. 

NCOMP  uses  a  slight  deviation  from  the  sample  size 
equation  presented  earlier.  Shannon’s  1/4  factor 
represents  the  highest  product  of  the  probability  of 
success  and  probability  of  failure  in  a  simple  trial.  If 
p*0.5,  q  would  also  equal  0.5,  and  their  product  would 
yield  0.25,  or  1/4.  However,  if  sampling  reveals  a  p  equal 
to  something  other  than  0.5,  the  product  of  p  and  q  will 


Figure  13  Two  Normal  Distributions  for  Probability  of 
Closure  of  a  Target  Element. 

always  be  less  than  0.25.  AAPMOD  uses  the  product  of  the 
observed  p  times  q  as  a  reduced  factor  for  multiplying  with 
the  2^  and  dz  term. 

For  example,  the  following  situation  developed  during 
the  validation  runs  of  AAPMOD: 

Results  far  iteration  #  200  revealed  p  >.305  and  q  >  .695. 
The  confidence  requested  was  90%,  and  the  deviation  from 
the  true  population  probability  was  desired  less  than  0.05. 

NCQMP  computed  a  sample  size  of  230,  and  program  execution 
stopped  on  that  iteration.  The  computation  occurred  as 
follows: 


n 


n 


p  *  q 


*  il.  **2  /  d**2) 

> i 


(. 305) *(. 695)* (1.645/. 05) **2  - 


230 


where:  ■  1.645  d  >  0.05 

p  >  0.305  q  ■  0.695 


The  concept  can  be  explained  as  follows:  the  true 
probability  of  the  defined  attack  closing  the  runway  is 
unknown,  but  assumed  to  equal  p.  The  sample  size  of  200 
revealed  a  sample  mean  of  0.305.  If  drawn  with  two  normal 
distributions,  the  situation  resembles  Figure  13. 

The  sample  size,  n,  is  then  computed  to  satisfy  the  above 
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aquation,  and  an sura  tha  dasirad  accuracy  of  p. 

And  racall  that  p,  in  this  discussion,  refars  to  tha 
probability  of  closing  any  ona  TOL  surfaca.  Samp la  siza 
reductions  do  not  occur  for  elements  other  than  the  three 
TOL  surfaces.  Also,  NCOMP  considers  tha  worst  case 
probability  (tha  p  closest  to  0.5)  from  all  three  TOL 
surfaces. 

AAPMOD  Output .  Earlier,  when  addressing  inadequacies 
of  the  JMEM  effectiveness  method,  a  question  was  raised 
concerning  application  of  force  levels  less  than  that 
required  to  cut  a  runway.  The  simple  answer  is  to  run  the 
analysis  again,  and  determine  new  results.  However,  when 
using  AAPMOD,  reanalysis  may  not  be  necessary.  The  output 
produced  by  AAPMOD  offers  the  user  many  measures  in 
addition  to  an  overall  probability  of  denying  TOL  operation 
at  an  airfield.  The  following  discussion  will  relate  the 
various  output  quantities  of  AAPMOD,  to  the  various  system 
responses  of  Chapter  III. 

The  output  of  AAPMOD  is  obtained  from  simple  data 
collection  and  storage  during  each  iteration  of  sampling. 
PROGRAM — MAIN  calls  SUBROUTINE-RESULTS  to  process  the  data 
and  print  the  output. 

A  sample  of  AAPMOD  output  appears  in  Appendix  F.  The 
reader  should  refer  to  Appendix  F  as  the  various  elements 
of  output  are  discussed. 

The  first  part  of  the  output  consists  of  an  echo  of 
raw  input.  This  simple  procedure  saves  hours  of  trouble 
analyzing  program  output  that  may  not  have  been  expected. 
Most  programmers  know  that  computers  do  what  you  tell  them 
to  do,  not  what  you  want  them  to  do.  Well,  in  the  same 
way,  computer  programs  process  the  data  that  they  are 
given,  and  not  what  they  should  have  been  given. 

The  reader  may  note,  that  in  the  sample  of  Appendix 


F,  by  virtue  of  "0"  preceding  the  default  Z  and  ERROR  terms 
of  1.645  and  0.05,  sample  size  is  not  reduced.  (ERROR  is 


the  program  variable  for  the  d,  discussed  earlier.)  The 
user  requested  250  iterations  with  intermediate  output  at 
the  100th  and  200th  iterations.  Since  output  format  is 
identical  for  any  iteration,  skip  to  the  last  set  of 
values,  found  at  NSAMP  *  250. 

The  first  values  that  appear  are  confidence  limits. 
The  numbers  represent  one-half  the  width  of  an  interval 
centered  on  the  sample  estimate  for  the  expected  number  of 
hits  on  the  target  element  listed.  This  element  will  be 
the  target  element  in  the  complex  with  the  highest  number 
of  expected  hits,  as  reported  in  the  line  labeled,  "EXP  NO. 
HITS",  found  just  below  the  confidence  limits. 

The  value  for  the  confidence  interval  is  computed 
from  the  Student’s  t  statistic,  the  S/D  of  the  sample,  and 
the  number  of  the  current  iteration.  For  example,  the 
sample  reports  1.25  for  the  99%  level.  This  is  computed 


from  t 


•2.576,  s-7.674,  and  n-250,  as  follows: 


l.ZS 


2.  576 


1.674 


The  1.25  creates  a  99%  confidence  interval  that  ranges  from 
19.9  to  22.4  for  the  main  runway.  The  meaning  of  a 
confidence  interval  is  that  if  the  250  iterations  were 
repeated  100  times,  and  a  correct  interval  was  computed  for 
each  replication,  99  of  the  100  intervals  would  include  the 
true,  expected  number  of  hits,  for  the  defined  attack  on 
the  defined  target. 

After  reporting  the  expected  number  of  hits  and  its 
3/D,  the  output  continues  with  "EXP  AREA  DAN”.  This  value 
represents  the  expected,  accumulated  area  of  crater  damage, 
per  target  element.  And  again,  the  expected  value  is 
accompanied  its  S/D. 


63 


Sines  total  damage  area  calculations  were  not 
suppressed  for  the  run,  the  values  for  damage  area  are 
reported.  The  price  Mas  paid,  however,  as  the  series  of 
program  runs,  addressed  in  Chapter  V,  and  illustrated  in 
Appendix  F,  ranged  from  66.5  seconds  to  135  seconds  of 
processing  time. 

The  output  format  completes  the  individual  target 
element  information  with  a  reminder  of  the  group  to  which 
each  target  element  belongs.  Afterwards,  the  output  turns 
to  data  concerning  group  damage.  Area  of  group  damage  is 
simply  the  sum  of  the  damaged  area  of  the  member  elements 
of  the  group.  The  S/D  for  the  group  is  computed 
separately,  however.  Each  iteration  contributes  a  squared 
term  to  a  running  sum  of  squares. 

Next  is  data  concerning  TOL  pavements  and  minor 
taxi ways.  For  each  of  the  up  to  three  TOL  capable 
surfaces,  AAPMOD  computes  the  probability  of  denying  TOL 
operation  from  the  strip,  as  well  as  the  S/D  of  the 
probability  estimator.  Upon  output,  AAPMOD  simplifies 
the  label  as  "PROB  CUT".  However,  if  a  TOL  strip  is  so 
large  to  require  two  or  more  cuts,  the  output  value  is 
really  the  probability  of  denying  a  clear  operations  area 
and  not  only  the  probability  of  cutting  the  runway. 

The  demonstration  experiment  in  Appendix  F  clearly 
illustrates  the  concept  of  cut  versus  closure.  Runway-1  is 
9,000*  x  200*.  Runway-2  is  6,000*  x  100*.  To  close 
Runway-2  is  to  deny  operations  from  Runway-2.  To  deny 
operations  is  to  deny  a  minimum  clear  rectangle  of  4,000*  x 
50*.  Given  the  original  dimensions  of  Runway-2,  simply 
producing  a  cut  more  than  2000*  from  either  end,  denies  the 
minimum  clear  area. 

A  runway  cut  is  a  chain  of  craters,  across  the 
runway,  with  a  minimum  width  between  craters  of  less  than, 
in  this  case,  50*.  However,  one  cut  is  not  sufficient  to 


deny  TOL  operations  from  Runway-1.  At  least  two  cuts  must 
be  made,  and  in  the  correct  location  to  deny  the  clear, 
4,000’  length. 

The  next  values  are  UEXP  NO  CRATERS"  and  "SIGMA". 

This  is  an  interesting  measure  of  the  degree  of  damage  in 
closing  the  runway.  The  label  stands  for  the  expected 
number  of  craters  closing  the  easiest  minimum  clear  strip 
to  repair.  This  number  represents  the  average  number  of 
craters  denying  a  clear  TOL  surface,  over  the  number  of 
samples  of  the  simulation.  The  number  is  computed  by 
summing  the  integer  number  of  craters  closing  the  runway  on 
each  iteration.  The  expected  number  of  craters  closing  the 
TOL  area,  given  the  runway  is  closed,  can  be  figured  by 
simply  dividing  the  EXP  NO  CRATERS  by  the  PROB  CUT. 

A  related  value  and  its  S/D  is  "EXP  AREA  FILL".  This 
number  gives  the  area  of  disruption  that  must  be  repaired, 
to  regain  operational  status.  The  area  can  be  less  than  a 
full  crater  because  AAPMOD  sums  the  area  of  crater 
intersecting  the  easiest  clear  area  to  repair.  A  quarter 
of  the  area  of  two  separate  craters  may  need  to  be  filled 
to  regain  the  minimum  clear  TOL  dimensions,  so  although  EX 
AREA  FILL  correlates  to  EXP  NO  CRATERS,  no  direct 
mathematics  relates  the  two. 

The  indefinite  values  found  at  "EXP  NO  FILLED"  and 
its  "SIGMA"  occur  because  AAP  originally  repaired  craters 
between  attacks.  Given  the  purposes  of  AAPMOD,  although 
the  call  to  compute  the  total  area  repaired  was  not 
changed,  neither  was  its  location  in  the  loop,  and  with 
only  one  attack,  was  not  excuted.  Regardless,  the 
subprograms  to  compute  the  repair  data  have  been  retained. 

Finally,  "EXP  APPR  NO  CRATERS"  and  EXP  APPR  FILL" 
extend  damage  assessment  to  taxiing  capability  to  either: 


1)  the  clear  strip  that  permits  TOL  operations,  if 
the  attack  fails*  or 


2)  t 


lest  TOL  surface  area  to  repair 


These  values  detail  the  damage  that  inhibits  access 
to  the  clear,  or  nearly  clear  strip,  from  the  end  of  the 
runway .  The  value  is  computed  similar  to  above,  where  an 
integer  number  of  craters  is  accumulated  into  a  sum,  and 
with  floating  point  accuracy,  is  divided  by  the  number  of 
iterations.  The  same  also  occurs  for  the  area  computation. 

The  same  data  is  presented  for  all  combinations  of 
major  TOL  surfaces.  Had  the  example  problem  contained 
three  TOL  surfaces,  the  data  presented  on  the  line  "1  &  2" 
would  have  been  replicated  for  "2  *  3"  "1  *  3M,  and  "1  &  2 
It  3".  One  notes  the  additional  information  of  the 
"DISTRIBUTION  MINIMUM  CRATERS". 

Finally,  AAPMQD  output  details  the  damage  to  minor 
taxi ways.  Given  that  taxi  operation  requires  only  a 
minimum  clear  width,  without  associated  length,  "EXPECTED 
NUMBER  OF  CUTS"  is  alone  a  valid  descriptor.  However,  a 
cut  to  deny  taxi  is  not  as  simple  as  a  cut  to  deny  TOL. 
Recall  the  figure  presented  in  Chapter  III,  Figure  9. 

AAPMOD  considers  meandering  taxi.  Figure  9,  with  distorted 
scale  illustrates  the  difference  between  denying  TOL  and 
taxi  operations.  Recall  also,  the  radius  of  disruption 
decreases  for  taxi,  which  clarifies  the  use  of  different 
sized  craters  in  Figure  9.  Very  simply,  if  a  chain  of 
craters  precludes  taxi,  the  pavement  is  cut.  Such  cuts  can 
occur  anywhere,  and  in  any  number,  along  a  taxiway.  And 
each  cut  is  considered  an  event,  complete  of  itself.  There 
is  no  requirement  for  exact  location,  because  there  is  no 
requirement  to  deny  a  minimum  length  of  minimum  width. 

This  completes  the  discussion  of  implementation  of 
AAPMOD.  Chapter  V,  that  follows,  is  the  presentation  of 
the  results  of  an  experiment  run  with  AAPMOD. 


V.  Program  Demonstration 

This  chapter  will  report  the  results  of  a  simple, 
three  factor,  two  level  experiment  run  with  AAPMOD.  The 
results  of  the  experiment  are  interesting  in  themselves; 
however,  the  significance  of  the  experiment  remains  in  the 
demonstration  of  the  capabilities  of  AAPMOD. 

Chapter  V  consists  of  two  sections.  The  first  is  on 
experimental  design,  and  discusses  the  experiment.  The 
second  addresses  the  sensitivity  of  the  results  of  the 
experiment  to  changes  in  the  inputs.  Implicit  with  the 
discussion  of  these  sections  is  further  evidence  of  the 
validity  and  the  veracity  of  AAPMOD. 

Experimental  Design 

AAPMOD  is  a  tool:  a  data  processor.  When  inputs  to 
the  system  of  airfield  attack  are  entered  into  AAPMOD,  the 
program  uses  Monte  Carlo  sampling  to  process  the  inputs, 
and  produce  the  system  response.  AAPMOD  is  only  one  tool 
of  many.  For  example,  an  expensive  alternative  may  be  to 
actually  fly  out  an  attack,  and  examine  the  real  world 
interactions  of  weapons  on  target.  However,  if  money 
restricts  the  number  of  attacks  available  to  be  flown, 
confidence  in  results  may  be  low. 

Another  method,  tedious  to  run,  is  to  perform  a  JMEM 
analysis.  As  the  reader  is  aware,  such  a  technique  can 
only  determine  the  probability  of  closing  a  runway. 

All  of  these  "tools"  use  inputs  to  form  a  response.  And 
it  is  felt  that  the  responses  of  AAPMOD  make  a  significant 
contribution  to  a  tactical,  operational,  weapons  analysis. 
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Figure  14  Airfield  Attack  Experiment 


The  Simulation.  A  practical  experiment  demonstrates 
the  capabilities  that  AAPMQD  offers  to  a  weaponeer.  The 
experiment  depicted  in  Figure  14  investigates  the  effects 
of  three  input  variables  on  seven  output  responses. 

Experience  suggests  that  the  following  factors  will 
produce  interesting  effects: 

1)  Accuracy, 

2)  Pattern  Definition,  and 

3)  Ax is-of -Attack 

The  effects  of  changing  these  input  variables  should 
be  reflected  in  changes  to  the  following  seven  responses: 

1)  Probability  of  closing  both  TOL  surfaces.  Pc. 

2)  Probability  of  closing  Runway-*  1,  Pci. 

3)  Probability  of  closing  Runway-2,  Pc2. 

4)  The  expected  number  of  craters  actually  denying 

operations  from  the  easiest  rectangle  to  repair  on 

Runway- 1 ,  Cl. 

3)  The  expected  number  of  craters  actually  denying 

operations  from  the  easiest  rectangle  to  repair  on 

Runway-2,  C2. 

6)  The  expected  number  of  craters  on  Runway-1,  HI. 

7)  The  expected  number  of  craters  on  Runway-2,  H2. 
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But  -first,  ss  with  all  analyses,  ths  target,  the 
attack,  and  the  damage  mechanisms  must  be  de-fined.  Again, 
the  reader  is  referred  to  Appendix  F  for  sketches  and  the 
full  list  of  details.  However,  generalized  elements  of  the 
experiment  are  discussed  in  this  section. 

The  Target.  The  target  complex  consists  of  thirteen 
target  elements.  These  elements  belong  to  four  target 
groups.  Ten  of  the  thirteen  elements  are  pavements,  and 
two  of  the  ten  pavements  are  TQL  surfaces.  Page  F-l  is  a 
sketch  of  the  complex,  and  F-2  is  the  program  produced  echo 
of  target  data. 

The  complex  was  designed  to  simulate  a  small 
airfield.  The  main  runway  is  9,000*  x  200*.  Next  to  the 
main  runway,  separated  by  100  yards,  is  a  parallel  taxiway, 
8,900’  x  100*.  The  right-most  6,000*  of  the  parallel  also 
has  TGL  capability.  Taxiways,  as  indicated,  join  the  TQL 
surfaces  to  the  main  parking  ramp,  element  *12.  Although 
the  ramp  is  really  a  pavement,  for  the  experiment,  it  was 
declared  a  structure.  Therefore,  AAPMOD  checked  element  12 
for  the  area  of  crater  damage,  but  did  not  search  for 
cuts.  Finally,  elements  11  and  13  are  structures 
representing  the  control  tower  and  perhaps  fuel  trucks  or 
piping  facilities. 

Although  the  design  is  simple,  it  is  representative 
enough  of  an  airfield  to  demonstrate  AAPMQD's  potential. 
Throughout  the  experiment,  the  target  remained  constant,  as 
did  the  crater  data,  that  follows. 

Crater  pat a.  Arbitrarily,  three  hardness  codes  were 
assigned  to  the  various  elements.  But  only  one  type  of 
warhead  code  was  used.  This  information  is  reflected  at 
Column  K  and  Row  43  of  Page  F-3.  The  information  is  stored 
in  a  two-dimension  crater  array,  beginning  at  line  44.  The 


values  -for  ths  crater  array  were  available  to  the  planner 
as  circular  radii.  The  radii  for  denying  TQL,  for  surface-* 
hardness  codes  1  and  2  are  18*  and  24’  respectively.  The 
structure,  near-miss  radius  for  surface  code  3  is  36*.  The 
radii  of  taxi-denial  or  direct  hit  damage,  for  the  three 
hardnesses,  are  respectively:  12*,  18*,  and  24*. 

However ,  the  reader  will  note  peculiar  numbers  stored 
for  the  crater  radii.  The  IS. 9*,  for  example,  represents 
the  18*  circular  radius.  The  18*  has  been  transformed  to 
one-half  the  length  of  a  side  of  a  square,  having  the  same 
area  as  that  of  the  original  circular  crater.  The  area  of 
an  18’  circle  is  1018  sq  ft  and  the  area  of  a  31.8*  square 
is  1011  sq  ft,  the  difference  due  to  roundoff  by  AAPIN. 

The  Attack.  The  input  variables  under  study  were 
parameters  of  the  attack.  In  order  to  keep  the  research 
manageable,  but  at  the  cost  of  less  than  a  practical 
experiment,  only  three  variables  were  studied.  The  other 
input  variables  were  held  constant.  To  repeat,  the  three 
factors  of  interest  were  accuracy,  weapon  pattern 
definition,  and  ax is-of— attack. 

The  experiment  studied  the  effects  of  these  variables 
set  at  two  levels  each,  the  high  level  and  the  low.  A 
detailed  discussion  of  the  levels  follows. 

1)  Delivery  error:  The  input  variable  was  the 
standard  deviation  of  the  normal  error,  in  both  range  and 
deflection  directions.  For  purposes  of  the  experiment,  the 
deflection  error  standard  deviation  (S/D)  was  defined  to  be 
one-half  the  range  S/D.  Therefore,  by  specifying  either 
the  range  error  probable  (REP),  or  the  S/D  of  range  error 
(the  two  are  related  by  S/D  range  *  REP/. 675),  both 
parameters  of  the  bi-variate  error  distribution  were 


specif  lad. 

For  tha  ax par i man t  raportad  here,  REP  was  c hos an  at 
20*  for  high  accuracy,  and  290’  for  low  accuracy. 

Therefore,  tha  S/D  for  high  accuracy  Mas  30’  and  the  S/D 
for  Iom  accuracy  Mas  370*.  Tha  deflection  S/D's  Mara  tha 
respective  one-half  values:  IS*  and  185*. 

2)  Weapon  Pattern:  Recall  tha  many  factors  affecting 
tha  shape  of  the  Meapons  impact  pattern.  Tha  single  factor 
chosen  for  this  experiment  Mas  mode,  sat  at  its  only  tMO 
levels,  singles  or  pairs.  High  and  Iom  correlate  to  the 
impact  density  of  the  resulting  pattern.  The  Iom  level  Mas 
defined  at  singles  mode  and  the  high  level  Mas  defined  Mith 
pairs  release. 

3)  Ax is-of— attack:  In  the  real  eorld,  axis-of -attack 
can  vary  from  0°  angle-off  to  90*  angle-off.  Recall  from 
Chapter  II,  that  fee  impacts  can  occur  on  the  runeay  Mith  a 
90"  cut.  Therefore,  for  practical,  as  Mell  as  operational 
considerations,  (like  defenses  along  the  extended  runeay 
centerline),  the  high  and  Iom  levels  of  ax is-of -at tack  Mere 
chosen  at  40*  angle-off  and  5*  angle-off. 

The  rest  of  the  attack  plan  should  be  evident  from 
the  echo  beginning  on  page  F-2.  The  attacks  consisted  of 
six  passes  Mith  identical  parameters,  except  for  aimpoint. 
Three  aircraft  attack  approximately  the  one-third  point  of 
the  run May,  and  three  attack  the  teo-thirds  point. 

HoMever ,  the  first  three  aim  for  the  centerline  of  the 
runeay,  and  the  second  three  aim  for  the  edge  of  the  runeay 
nearest  the  parallel  taxieay.  This  100*  displacement  offers 
better  collateral  damage  to  the  parallel  taxi May.  However , 
as  the  experimental  results  reveal,  the  100’  offset  mss 
costly  to  the  probability  of  Runeay- 1  closure. 


In  the  experiment,  accuracy  will  be  termed  -factor  a, 
density  termed  -factor  6 ,  and  axis-of-attack  termed  factor 
c.  These  labels  will  simplify  later  discussions. 
Furthermore,  convenience  suggests  representing  the  high  and 
low  factor  levels  with  l*s  and  0's,  respectively. 

The  Experiment.  The  purpose  of  the  experiment  was  to 
validate  and  demonstrate  AAPMOD.  The  experiment  was 
designed  to  display  AAPMQD’s  capability  to  clarify  the 
effects  of  levels  of  input  factors  on  system  response.  The 
purpose  in  this  case  was  not  to  optimize  an  attack  plan, 
but  to  demonstrate  that  AAPHOD  can  help  optimize  attack 
planning. 

Considering  the  demonstrative  nature  of  the  experi¬ 
ment,  some  of  the  factors  that  experience  suggests  affect 
weapons  effectiveness  were  held  constant.  Specifically,  the 
probability  of  aircraft  survival  was  held  constant  at  1.0. 
(Different  delivery  tactics  could  affect  survivability  and 
indirectly,  probability  of  closure.) 

Also,  weapon  reliabilities  were  held  at  1.0.  Again, 
the  relationships  addressed  in  Chapter  III  suggest  that 
there  are  subtle  interactions  between  variables  not 
addressed  in  this  brief,  three  factor  experiment.  For 
example,  altitude,  speed,  and  dive  angle  all  affect  impact 
angle  and  therefore  reliability.  But  to  assess  the  inter¬ 
actions  of  such  variables  is  beyond  the  scope  of  this 
effort.  Nevertheless,  AAPMOD  can  handle  these  inter¬ 
actions,  and  a  larger  scale  experiment  will  provide  a 
valuable  data  base  for  tactical  decision  making. 

6iven  the  decision  to  evaluate  effects  of  three  input 
variables,  an  experimental  design  was  needed.  Each  attack 
plan  could  have  been  considered  a  variable  itself.  In  the 
jargon  of  statistics,  a  plan  could  have  been  one  policy. 


An  experiment  of  such  design  would  entail  a  single  -Factor 
analysis.  However,  one-factor  policy  analyses  are  weak. 

All  the  individual  effects  of  factors,  and  combinations  of 
factors  are  lost  to  the  one  factor,  call  it  the  plan. 

Another  traditional  method  is  to  hold  two  variables 
constant,  and  vary  the  third.  This  type  of  experiment 
requires  replications  simply  to  assess  whether  responses 
are  due  to  factor  effects  or  chance.  A  better  design  would 
allow  all  levels  of  a  given  factor  to  be  combined  with  all 
levels  of  every  other  factor. 

And  so  we  have  defined  a  third  type  of  experimental 
design,  a  factorial  analysis.  A  factorial  design  is  used 
in  the  experiment  reported  here. 

A  factorial  analysis  is  an  efficient  experimental 
design.  When  combined  with  the  power  of  modern,  computer¬ 
ized,  statistics  packages,  it  clearly  describes  the  effects 
of  not  only  the  factors  of  interest,  but  also  the  effects 
of  the  interactions  between  the  factors. 

To  quote  from  Hicks  <Ref.8:88),  some  advantages  of 
a  factorial  experiment  include  the  following: 

1)  Better  efficiency  is  possible  than  with 

one-factor-at-a-time  experiments. 

2)  All  data  are  used  in  computing  all  effects. 

3)  Information  is  available  on  the  interactions 

between  the  factors. 

In  the  three  factor,  two  level  experiment,  called  a  21 2  3 
factorial,  the  combinations  of  levels  can  be  visualized  as 
the  corners  of  a  cube,  as  in  Figure  15  on  the  next  page. 


Figure  13  Three  Factor,  Tea  Level  Experiment  Represented 

as  a  Cube. 


Although  actual  values  were  assigned  to  the  levels  of 
the  experimental  factors,  the  corners  of  the  cube  can  be 
represented  by  use  of  1  and  0.  As  discussed  above,  the 
1-0  represent  the  high  and  low  levels  of  the  factors. 

The  Results.  Table  IV  documents  the  results  of 
running  all  combinations  of  factors  through  five 
replications.  The  five  replications  were  chosen  to 
determine  if  the  random  number  seeds  introduced  any 
variability  (error)  into  the  experiment.  This  blocking  of 
runs  into  groups  will  be  adressed  later.  More  important  is 
the  analysis  of  factor  and  interaction  effects  that 
follows. 
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Table  IV 

Experimental  Results 
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Figure  16  The  Vulnerable  Area  of  Runway- 2 

Main  Effects:  The  main  effect  of  accuracy  initially 
surprised  this  analyst.  As  accuracy  went  up.  Pc  went  down. 
But  upon  closer  inspection,  the  result  is  fully  plausible. 
The  S/D  of  the  two  levels  of  accuracy  were  extreme:  30’ 
and  370*.  Therefore,  when  accuracy  was  set  high,  there  was 
little  chance  of  cutting  Runway-2,  separated  by  300’. 
However,  when  accuracy  was  low,  there  was  a  good  chance  for 
damage  to  Runway— 2. 

Given  that  craters  were  almost  32’  square,  the 
original  width  of  Runway-2  only  100’ ,  and  the  minimum  width 
required  only  90’,  closure  came  relatively  easy.  An  impact 
anywhere  beyond  2,000’  from  the  Runway-2  ends,  and  beyond 
about  39’  from  the  sides,  will  close  the  runway.  This 
situation  is  depicted  in  Figure  16,  although  not  drawn  to 
scale. 

The  effect  of  accuracy  on  C2  can  also  be  easily 
explained.  Since  aimpoints  were  at  least  300’  from 
Runway-2,  when  accuracy  was  high,  few  hits  occurred  on 
Runway-2. 

The  effect  of  density  was  also  surprising,  at  least 
initially.  But  high  density  implied  shorter  stick  length. 
Shorter  stick  length  implied  less  chance  of  hitting 
Runway-2.  And  with  less  chance  of  closing  Runway-2,  the 
overall  Pc  of  the  field  decreased. 

The  same  reasoning  holds  for  axis-of-attack.  The 
lower  axis-of-attack,  the  more  craters  on  Runway-1  and 


Figure  17  Plotted  Effects  on  Pc  by  (a)  Accuracy, 

(b)  Density,  and  (c)  Axis-of  Attack. 

therefore  fewer  on  Runway-2,  and  thus  less  chance  of 
closing  Runway-2. 

A  summary  of  the  main  effects  on  each  response  appear 
in  Tables  V  -  VII,  while  Figure  17  graphs  the  three  main 
effects  on  Pc. 

Two-Way  Interactions:  Discussion  of  two-way  inter¬ 
actions  considers  the  combined  effect  of  any  two  of  the 
factors  on  the  responses.  Such  study  is  one  of  the 
advantages  of  a  factorial  design  for  a  statistical 
experiment.  Each  of  the  forty  replications  contributed 
information,  that  when  processed,  helped  to  detect  the 
combined  effects  of  two  factors,  as  well  as  single  factor 
effects. 

The  two  way  interactions  in  this  experiment  were  not 
as  dramatic  as  the  single  factor  effects.  Accuracy  by  axis 
produced  the  most  obvious  effects.  Pc  showed  little  inter¬ 
action,  but  Perl,  Pcr2,  Cl,  C2,  and  H2  did  display  some 
factor  interactions.  Again,  the  interactions  were  weak, 
but  they  did  exist.  For  example,  at  low  angle-off,  low 
accuracy  exhibited  a  higher  Perl  than  did  high  accuracy. 


Table  V 

Effect  of  Accuracy 


Level  0 

-  — —  —  - 1 

Level  1 

Pc 

0.069 

0.001 

Perl 

0.220 

0.369 

Pcr2 

0.322 

0.001 

Cl 

1.663 

1.275 

C2 

3.114 

0.250 

HI 

26. 175 

53.775 

H2 

1  . 

3.610 

0.013 

Table  VI 

Effect  of  Density 


Level  0 

Level  1 

Pc 

0.044 

0.027 

Perl 

0.354 

0.235 

Pcr2 

0.174 

0.  149 

Cl 

1.606 

1.332 

C2 

1.730 

1.634 

HI 

38.765 

41.185 

H2 

1.837 

1.786 

j 

_ _ _ _  _ _ _ _ 

Table  VII 

Effect  of  Axis-of -Attack 


Level  0 

Level  1 

Pc 

0.007 

0.063 

Perl 

0.061 

0.528 

Pcr2 

0.082 

0.241 

Cl 

1.129 

1.809 

C2 

1.812 

1.552 

HI 

45.210 

34.740 

H2 

1.215 

2.408 
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Figure  18  Plots  of  ths  Two-Way  Interactions  of  Accuracy 
and  Density  for  (a)  Pc,  (b)  Perl,  <c>  Pcr2, 
<d)  Cl,  <e)  C2,  (f)  HI,  (g >  H2. 


But  at  high  angle-off,  high  accuracy  produced  better  Perl. 
The  interaction  is  easy  to  explain  if  one  recalls  that 
greater  delivery  error  occurs  in  the  range  direction  than 
in  the  deflection  direction.  With  the  low  angle-off,  this 
range  error  translated  to  errors  along  the  runway.  At  high 
angle-off,  most  of  the  error  was  across  the  runway. 

Recall  the  peculiar  scenario  of  the  attack.  Aimpoint 
number  two  was  the  inside  edge  of  Runway- 1.  When  accuracy 
was  high,  and  axis  low,  few  weapons  would  fall  low  enough 
to  deny  50  clear  feet  along  the  lower  edge  of  the  runway. 
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However ,  whan  ax is-of -attack  was  high,  high  accuracy  kept 
mar a  impacts  on  tha  runway,  and  produced  a  bat tar  chanca  of 
closing  it. 

Three  tables  again  present  the  effects  o-f  the  two-way 
interactions.  Table  VI 1Z  has  the  combined  effects  of 
Accuracy  and  Density,  Table  IX  has  the  combined  effects  of 
Accuracy  and  Axis-of-Attack,  and  Table  X  has  the  combined 
effects  of  Density  and  Axis-of-Attack.  Figure  18  presents 
plots  of  the  effects  of  Accuracy  by  Axis,  which  as 
described  above  showed  tha  strongest  two-way  interaction. 

Three-Way  Interactions:  Finally,  the  three-way 
interactions  exhibited  the  least  effect  of  all.  Although 
most  responses  still  had  better  than  a  0.003  signifcance 
level,  F-values  were  lower  than  for  previous  effects.  The 
exception  was  H2.  H2  was  the  number  of  collateral  hits  on 
Runway-2.  Three-way  effects  had  only  a  0.3  significance 
level  on  this  response.  A  plausible  explanation  follows. 

While  singly,  accuracy  and  axis  had  significant 
effects  on  H2,  density  did  not.  Recall  that  accuracy 
levels  were  far  enough  apart  to  exhibit  a  clear  effect  on 
H2.  Also,  as  angle-off  moved  high,  there  was  a  greater 
likelihood  for  impacts  on  Runway-2.  But  the  difference  in 
stick  length  due  to  density  changes,  alone,  was  not 
significant  enough  to  affect  H2. 

Similarly,  the  two-way  Interactions  were  split:  the 
two  interactions  with  density  had  significance  levels  of 
only  0.6,  while  the  the  two-way  between  accuracy  and  axis 
was  significant  to  0.00001.  The  three-way  interaction  on 
H2  was  therefore,  not  expected  to  show  much  significance. 
(Remember,  H2  is  a  measure  of  collateral  damage  and  was  a 
collateral  response.) 


Table  VIZI 

Effect  of  Accuracy  by  Density 


Accuracy  — 


Level  0 


Level 


x  Density 
x  Density 


x  Density 
x  Density 


I  0.086 
|  0.053 


0.002 

0.000 


0.257 
0. 183 


0.451 

0.287 


x  Density 
x  Density 


0.346 

0.298 


x  Density 
x  Density 


1.645 

1.681 


0.002 

0.000 


1.566 

0.983 


x  Density 
x  Density 


2.960 

3.267 


0.500 

0.000 


51.560 

55.990 


I  H2 


x  Density 
x  Density 


3.650 

3.570 


0.023 

0.002 


Table  IX 


Effect  of  Accuracy  by  Axis 


Accuracy  — 


Level  0 


Level 


x  Axis 
x  Axis 


0.014 
0. 124 


0.000 

0.002 


x  Axit 
x  Ax  it 


0.118 

0.322 


x  Ax  it 
x  Axil 


x  Axis 
x  Axis 


x  Axis 
x  Axis 


_0 
—  1 

“”S 
—  1 


0. 164 
0.480 


-1 — 
I 


0.004 

0.734 


1.758 

1.568 


0.002 


0.500 

2.049 


x  Axis 
x  Axis 


0  ”+* 
1 


3.624 

2.603 


30.920 

21.430 


x  Axis 
x  Axis 


2.430 

4.790 


0.000 

0.500 

597500 

48.050 

------ 

0.025 


Table  X 

Effect  of  Density  by  Axis 


Density  — 

Level  0 

Level  1 

Pc 

x  Axis  —  0 

x  Axis  —  1 

0.007 

0.081 

0.007 

0.046 

Perl 

x  Axis  —  0 

x  Axis  —  1 

0.064 

0.644 

0.03i 

0.412 

Pcr2 

x  Axis  —  0 

x  Axis  —  1 

0.084 

0.264 

0.080 

0.218 

Cl 

x  Axis  —  0 

x  Axis  —  1 

1.201 

2.010 

1.037 

1.607 

C2 

x  Axis  —  0 

x  Axis  —  1 

1.737 

1.703 

1.867 

1.400 

HI 

x  Axis  —  0 

x  Axis  —  1 

43. 100 
32.430 

43.320 

37.050 

H2 

x  Axis  —  0 

x  Axis  —  1 

1.210 

2.463 

1.220 

2.352 

The  above  results  point  out  the  strong  dependency  of 
this  experiment  on  the  scenario.  This  analyst  feels 
strongly  that  the  100*  offset  for  aimpoint  two  skewed 
results  from  those  initially  expected. 

Blacking  Effect:  The  effect  of  the  random  number 
stream  was  also  checked.  Using  an  F  test  with  4,28  degrees 
of  freedom  (d.f.),  the  seed  was  not  found  to  be  significant 
to  Pc  or  C2.  However,  blocking  of  the  random  number  numbers 
was  significant  at  better  than  a  0.01  level  for  Perl,  Cl, 
HI,  and  H2,  and  better  than  a  0.0104  level  for  Pcr2.  The 
F-test  results  for  blocking  can  be  found  in  Appendix  F. 

It  is  felt  that  the  synchronization  in  the  model 
caused  the  significance.  There  was  no  significance  for  Pc, 
the  complex  probability  of  closing  both  TOL  surfaces. 
However,  the  same  string  of  errors  occurred  to  each 
aircraft,  on  each  pass.  The  interaction  between  the  two 
pavements  disappeared  when  looking  at  Perl  and  Per 2.  Thus 
the  random  numbers  displayed  greater  significance  in  the 


87 


rMpanM 


flnalyii 


Given  the  dependency  of  the  results  on  the  scenario, 
sensitivity  analysis  is  crucial  to  fully  understand  the 
main  effects  as  well  as  their  interactions. 

One  of  the  primary  factors  to  study  is  aimpoint.  The 
attack  consists  of  six  aircraft.  Apparently,  it  seems  easy 
to  close  Runway-2.  Even  collateral  damage  from  targeting 
Runway-1  closes  Runway-2  with  up  to  25-35%  probability. 
Rearranging  aimpoints  should  improve  the  probability  of 
closing  the  field. 

This  analyst  expects  significant  interactions  between 
aimpoint  selection  and  accuracy.  If  accuracy  is  high,  the 
weapons  will  be  on  the  aimpoint,  and  achieve  their  goal. 

But  if  accuracy  is  low,  collateral  damage  seems  to  yield  as 
much  damage  as  does  the  intended  damage. 


The  reader  is  cautioned  not  to  draw  other  conclusions 
from  this  experiment.  *The  damage  of  six  sorties  seems 
high.  However,  the  damage  is  due  to  100%  survivability  of 
the  aircraft,  and  100%  reliability  of  the  weapon 
functioning.  In  fact,  survivability  will  be  less  than  100%, 
and  reliability  can  be  as  low  as  15%. 
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VI.  PraiKt  Summary 


Nothing  Mill  ever  be  attempted  if  all  possibla 
objections  auat  ba  first  ovarcoaa. 

Samuel  Johnson 
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This  thasis  has  contributad  AAPMOD,  a  simple,  fast, 
attack  siaulation  modal,  to  tha  number  of  tools  available 
to  operations  planners.  This  aodel  responds  to  the 
demonstrated  need  of  Chapter  I,  to  develop  a  method  to 
accurately  relate  attack  efforts  to  target  damage.  Whereas 
the  parent  program,  AAP,  is  used  by  research  and  develop¬ 
ment  agencies  to  produce  better  conventional  Meapons, 

AAPMOD  can  be  used  by  aircrems  and  tactical  planners  to 
optimally  employ  the  conventional  meapons  they  have 
available  to  them  today.  Creme  can  use  AAPMOD  to  optimally 
design  attacks,  and  commanders  can  use  AAPMOD  to  optimally 
assign  meapon  systems  to  targets. 

Other  morks,  as  reported  in  Chapter  II  have  made 
significant  contributions  to  the  study  of  conventional 
meapons  effectiveness.  AAPMOD  drams  on  the  best  features 
of  some  of  the  previous  morks,  and  offers  analysts  a 
practical,  flexible  method  to  study  meapons  effects. 

The  system  of  interest,  given  the  scope  of  this 
effort,  has  been  tactical  aviation  attacking  an  airbase: 
specifically,  the  runmay.  Chapter  III  offered  the  reader  a 
fundamental  understanding  of  the  interactions  occurring  in 
a  modern,  air-to-ground  meapons  delivery.  Chapter  III  also 
related  the  various  system  inputs,  through  discussion  of 
system  interactions,  to  the  primary  response:  probability 
of  closure.  Also,  Chapter  Ill  discussed  other  responses 
such  as  number  of  impacts,  or  number  of  craters  requiring 


repair  before  TOL  capability  is  regained. 

Chapter  XV  then  presented  a  detailed  discussion  of 
AAPMOD.  The  Fortran  source  code  is  found  in  Appendix  D. 
And  while  AAPMOD  is  the  processor  of  the  input  variables* 
and  generator  of  systee  responses,  AAPIN  helps  the  user 
quickly  develop  input  data  files  for  AAPMOD.  AAPXN  also 
reduces  the  size  of  AAPMOD  by  assuming  some  of  the  error 
trapping  responsibility  originally  found  in  AAP.  Use  of 
AAPIN  assures  the  user  syntactically  correct,  and  concep¬ 
tually  reasonable  data  input  for  AAPMOD.  The  source  code 
for  AAPIN  is  also  available  in  the  appendices,  Section  E. 

Finally,  although  AAPMOD  was  verified  throughout  the 
conversion  process,  specific  verification  and  validation 
occurred  when  a  demonstrative,  three  factor,  two  level 
experiment  was  run.  The  results  of  the  experiment  are 
reported  in  Chapter  V.  The  results  suggest  good 
credibility  for  AAPMOD. 


The  tactical  experience  of  this  analyst,  in  concert 
with  the  experience  of  this  project’s  academic  advisor, 
suggest  that  AAPMOD  is  an  excellent  contribution  to  the 
analysis  techniques  of  assessing  conventional  munitions 
effectiveness. 

The  experiment  reported  in  Chapter  V,  clearly  demon¬ 
strates  the  statistical  significance  of  some  of  the  factors 
affecting  conventional  weapons  effectiveness.  However, 
different  types  of  significance  exist.  And  all  types  can 
influence  the  ultimate  decisions.  For  example,  personal¬ 
ities  or  politics  may  adjust  values,  so  that  although  a 
given  weapon  system  appears  optimal  after  a  rigorous 
analysis,  some  other  system  may  be  tasked  for  the  mission. 
However,  proper  understanding  of  the  results  of  AAPMOD  may 


influence  or  counter  personal  prejudice  or  political 
concarni,  so  that  waapons  can,  in  -fact,  ba  optimally 
amployad.  Also,  proper  study  with  AAPMOD  may  provide  the 
education  necessary  to  eliminate  Innocent  misconceptions, 
that  nevertheless  detract  from  optimal  weapons  employment. 

AAPMOD  does  seem  to  possess  the  capability  to 
educate,  as  well  as  assist  in  analyses.  Zt  is  interactive 
and  transportable.  Perhaps,  if  aircrews  and  planners  were 
to  run  AAPMOD  often  enough,  they  may  develop  a  feel  for 
planning  an  attack,  and  intuitively  optimize  the  factors 
that  contribute  to  attack  success.  Recall  from  Chapter 
III,  the  complex  interactions  affecting  the  probability  of 
cutting  a  runway,  or  denying  TOL  operations  from  a  base.  A 
rigorous  analysis  of  these  tasks,  requires  a  math  and 
statistics  background.  Such  a  foundation  is  not  always 
available  in  the  educational  background  of  aircrews  or 
decision  makers.  The  experience  of  these  people  rests  in 
flying  aircraft,  and  delivering  the  weapons  under 
consideration.  Therefore,  AAPMOD,  with  its  technique  of 
simulation,  offers  these  "educated  laymen"  the  information 
and  the  methodology  to  relate  their  experience  and  training 
to  an  analysis  of  weapons  delivery. 

Recommend at i ons 

Recommendation-1:  During  conversion  of  AAP  to  AAPMOD,  a 

type  of  target  entry  procedure  was  eliminated.  The  option 
allowed  coordinate  entry  of  the  centers  of  opposite  ends, 
and  the  element  width.  When  AAPIN  was  developed,  this 
option  was  eliminated  as  a  superfluous  luxury.  However, 
entering  the  series  of  ten  pavements  defined  in  the  sample 
experiment,  suggests  reinserting  the  option  to  AAPIN.  Once 
the  complex  is  drawn  on  graph  paper,  locating  end  points 
and  defining  widths  can  be  easier  than  finding  true  center 
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points,  lengths,  and  angular  orientations. 

Recommendation-2:  AAPIN  should  be  prettied  to  further 
enhance  useability.  As  an  example,  an  algorithm  developed 
by  this  analyst  for  an  earlier  project  Mill  input  airspeed, 
release  mode,  release  interval,  dive  angle,  and  several 
additional  variables  not  addressed  in  this  study,  and 
output  coordinates  of  the  impacts  in  a  stick  delivery. 

This  algorithm  should  be  added  to  AAPZN  to  facilitate 
pattern  descriptions. 

Recommendation-3:  Data  input  to  AAPIN  Mill  be  easier  if 
accompanied  by  a  series  of  Morksheets.  The  user  can  study 
the  target  complex,  complete  the  Morksheets,  and  quickly 
enter  the  data  to  AAPIN. 

Recommendation-4:  The  WRITE  statements  of  AAPIN,  and  their 

associated  FORMAT’S  should  be  reviewed  and  modified  to 
prevent  roundoff  errors. 

Recommendation— 3:  Change  output  of  AAPMOD  to  reflect 

expected  number  of  craters  closing  the  easiest  clear  strip 
to  repair,  given  the  runMay  is  closed.  (See  discussion  in 
Chapter  IV.) 

Recommendation-6:  Further  reduce  the  loader  requirements 
of  AAPMOD  to  fit  microcomputer  RAM  capability.  Currently, 
AAPMOD  requires  about  17,000  Mords  on  the  60-bit  CYBER. 
Noting  that  many  of  the  values  of  AAPMOD  are  integers,  the 
further  conversion  of  AAPMOD  to  microcomputer  Fortran  is 
possible. 

To  demonstrate,  this  analyst  compiled  PROGRAM — MAIN, 
and  generated  an  execution  program  for  MAIN  on  his  IBM 
Personal  Computer,  containing  256KB  RAM.  The  binary 
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■x scut ion  program  Mas  only  57KB.  Howavcr  due  to  the  large 
COMMON  requirement,  almost  8,000  words,  or  approximately 
231KB,  the  loader  could  not  properly  -function. 

Nevertheless,  mi cr ocomputer  implemen-  tat ion  seems 
reasonable.  The  PC  uses  16-bit  words,  doubling  the  size 
-for  integers  and  reals.  This  produces  the  equiv-  alent  of 
a  32-bit  machine.  (Roundoff  error  could  conceivably  affect 
results,  but  given  the  algorithms  of  AAPMQD,  and  the  low 
significance  required  of  most  variables,  such  error  is 
expected  to  be  negligible.)  Converting  17,000  words  to  an 
average  30-32  bits  each,  requires  a  RAM  of  a  little  over  a 
half-million  bits  or  344KB.  In  today’s  market,  such 
capacity  is  well  under  410,000.00,  and  closer  to  45,000.00. 

The  Tactical  Air  Command  has  purchased  16-bit  micro¬ 
computers,  and  USAFE  purchased  some  high  capability,  8-bit 
Cromenco  microcomputers.  Recommendation  2  is  to  investigate 
the  feasibility  of  placing  AAPMQD  onto  these  small 
computers  and  further  disseminate  its  planning  utility. 

Recommendat ion-7:  The  demonstration  experiment  of  the 

previous  chapter  retained  synchronization  of  the  random 
numbers  used  in  the  simulation.  There  is,  however,  the 
potential  to  lose  synchronization  when  reliabilities  or 
survivabilities  fail.  (See  disscussion  in  Chapter  IV.) 
Efforts  should  be  directed  to  enable  AAPMQD  to  use  separate 
random  number  streams  to  control  accuracies  and 
reliabilities. 

Recommendation-8:  Given  the  work  of  Hachida  and  Pemberton, 
combined  with  the  capability  afforded  by  AAPMQD,  it  may 
become  possible  to  actually  plan  an  airfield  attack  to 
maximize  probability  of  TOL  denial.  Such  a  monumental 
planning  tool  would  require  a  full  factor  screening  of 
system  inputs,  to  determine  those  with  the  most 


signif icance.  Than  loops  can  bs  placed  in  AAPMOD  to  change 
the  factors,  assess  damage,  and  ultimately  maximize 
results. 

Recommendation-9:  Possibly  an  alternative  to  heuristically 
looping  AAPMOD,  would  be  to  use  the  techniques  of  response 
surface  methodology  (RStl) .  Since  most  input  variables  are 
continuous,  quantitative  variables,  RSM  seems  a  promising 
approach  to  optimize  the  damage  resulting  from  an  attack 
plan.  (Ref.  19:  170) 

Recommendat ion-10:  AAPMOD  should  be  studied  to  determine 
its  suitability  far  assessing  blast  and  fragment  damage  to 
structures,  vehicles,  or  people.  Application  of  AAPMOD  to 
such  types  of  analysis  can  then  run  the  gamut  of  weapon 
effectiveness  studies.  One  model  may  possibly  take  the 
place  of  two  or  three  specific  weapon  analysis  programs. 

Recommendation-11:  A  study  should  determine  the 
significance  of  the  use  of  the  bi-variate,  rectangular 
normal  error  distributions,  over  bi-variate,  elliptical 
normal  error  distribution.  Minor  error  can  be  introduced 
into  the  analysis  if  the  rectangular  normal  is  used  when  in 
reality  the  true  distribution  more  closely  resembles  an 
ellipse. 

Recommendat ion- 12:  Although  potential  enemies  possess 
hundreds  of  useable  airfields,  the  number  of  high-value 
fields  is  limited.  Reported  in  the  November  ’82  issue  of 
Arsed  Forces  Journal,  there  are  only  about  72  Main 
Operating  Bases  within  800  km  of  the  inner  German  border. 
Although  preplanning  attacks  on  all  these  fields  commends 
a  significant  effort,  to  do  so  may  equally  improve  mission 
success. 


By  preplanning  is  meant  the  development  of  a  full 
attack,  optimized  for  maximum  damage  to  the  airfield.  Such 
optimization  Mill  include  consideration  of  defenses, 
navigation  accuracies,  and  collateral  damage  to  adjacent 
target  elements.  One  last  mention:  such  optimization  also 
requires  utility  or  value  assignments  to  target  elements, 
relative  to  their  contribution  in  support  of  combat 
sorties.  Nhile  AAPMOD  cannot  emulate  the  entire  decision 
process,  AAPMOD  can  contribute  the  expected  damage  to  the 
complex,  due  to  the  attack. 

It  is  felt  that  AAPMOD  satisfies  the  objective  of 
providing  a  clear  methodology  to  relate  attack  effort  to 
target  damage.  The  proceeding  recommendations  serve  to 
further  enhance  the  utility  of  AAPMOD. 


Throughout  this  study,  an  implicit  objective  was  to 
pursue  research  that  had  more  than  an  academic 
significance.  It  is  felt  that  exercising  AAPMOD  will 
positively  affect  the  future  effectiveness  of  tactical 
aviation.  This  improvement  will  reveal  the  ultimate, 
practical  significance  of  this  thesis. 
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Appendix  A 


GLOSSARY  OF  FREQUENTLY  USED  TERMS 


Like  any  -field,  tactical  aviation  ham  its  own  lingo. 
Presented  here  are  definitions  of  some  of  the  terns  used  in 
this  thesis. 


Aimpoint— the  point  on  the  ground  where  the  pilot  desires  his 
weapons  to  iepact. 

Area  Weapon — typically  a  CBU.  By  design,  the  numerous 
submunitions  within  a  single  dispenser  will  cause  many  small 
craters  over  a  large  area,  called  the  weapon  footprint. 

B — suffix  to  number  to  indicate  an  octal  value,  frequently 
used  when  discussing  computer  hardware  r equi r ements . 

Bomb — generic  for  a  unitary  weapon,  released  from  an  aircraft, 
and  that  falls  without  additional  propulsion. 

Cluster  Bomb  Unit  <CBU)— a  single  dispenser,  released  from  an 
aircaraft.  The  dispenser  opens  prior  to  ground  impact,  and 
releases  numerous  submuni tions. 

DMPI — desired  mean  point  of  impact.  Aimpoint  of  an  attack 

pass,  when  several  weapons  are  released:  the  desired  mass 
center  of  the  "stick"  of  weapons. 

DPI — desired  point  of  impact.  Aimpoint  of  an  attack  pass  when 
only  one  weapon  is  released. 

Footprint— the  ground  coverage  of  uniformly  distributed 
impacts  from  a  cluster  weapon. 

Minimum  Clear  Length  <HCL) -■  when  considering  a  take-off  and 
land  capable  surface  <asphalt,  concrete,  or  even  sod),  the 
minimum  distance,  of  sufficient  width,  to  enable  aircraft 
operations  from  the  surface. 

Minimum  Clear  Width  (MCW) — similar  to  MCL,  but  refers  to 
width.  MCW  is  typically  wider  than  taxi-width,  due  to  less 
precisian  of  the  high-speed  conditions. 

Mission— the  total  effort  expended  to  damage  a  target  complex. 
The  "mission"  can  include  several  attack  phases,  each  composed 
of  several  attack  passes,  each  composed  of  the  release  of  one 
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or  more  weapons. 

MPI-  M«n  paint  of  impact.  The  actual  mass  center  of  the 
impacts  resulting  from  a  stick  release. 

Multiple  Release — more  than  one  weapon  released  on  a  single 
pass  over  the  target.  A  multiple  release  results  in  a  "stick" 
of  weapon  impacts. 


Point** Impact  Weapon— unitary  weapon  such  as  ganeral  purpose 
(GP)  bombs  or  precision  guided  munitions  (PGM). 

Stick — a  ground  pattern  of  craters,  resulting  from  a  multiple 
release  delivery  pass.  The  pattern  is  defined  by  release 
conditions  discussed  in  Chapter  III. 

Submunitions — small  warheads  packed  into  a  dispenser. 
Typically,  a  CBU  is  considered  as  one  weapon  that  contains 
numerous  submunitions.  Each  submunition  is  capable  of  a 
limited  size  crater,  but  due  to  the  numbers  of  craters,  damage 
is  distributed  over  a  large  area. 

Taxi-Width — minimum  width  of  surface  required  to  permit 
aircraft  taxi  operations.  Usually  a  function  of  gear  width. 
Implies  slow  speed  and,  possibly,  ground  marshal lers. 

Unitary  Weapon — a  weapon  that  contains  only  one  cratering 
device. 

Void  Area — the  area  within  a  CBU  footprint  that  may  be  void  of 
impacts  due  to  dispenser  functioning  or  design. 

Warhead — the  part  of  a  weapon  that  causes  a  crater  upon 
impact. 

Weapon — a  generic  term  for  a  bomb,  CBU,  missile,  or  rocket, 
whale  and  complete  of  itself. 

Weapons  Delivery  Pass — a  flight  maneuver  involving  the  release 
of  a  weapon  or  weapons  from  an  aircraft,  in  attempt  to  damage 
a  target. 
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Discussion  of  Ballistic  CEP 


A  rsasonabls  valus  for  ths  intrinsic  ballistic  errors 
in  a  high-drag  boab  is  about  S  Ails.  Ths  error  is  due  to 
sinor  differences  in  fin  alignment,  CQ  location,  bomb-rack 
ejection  velocity,  ejection  yaw  angle,  ejection  angle-of- 
attack,  and  several  other  factors.  (A  "Ail"  is  one-mi 1 1 i- 
ra di an  or  0.001  radians,  a  dimensionless  measure  of  an 
angle. ) 

Also,  for  say  a  1,500*  level  release,  a  high-drag 
bomb  has  a  ground  range  of  about  3,730*,  and  a  slant  range 
of  4,020*  Figure  B. 1  depicts  the  geometry  of  the 
situation. 


Qiven  so  many  factors  contributing  to  ballistic 
dispersion  of  the  weapon,  a  circular  normal  error 
distribution  is  a  reasonable  choice  to  characterize  the 
error.  Therefore,  the  plan  view  of  the  release  of  a  single 
weapon  can  be  depicted  by  Figure  B.2.  The  aircraft 


Figure  B.2  Plan  View  of  a  Weapons  Ralaasa. 


releases  the  weapon,  and  as  it  drops,  it  continues  forward, 
with  its  boeb— range,  and  impacts  with  an  error  drawn  from 
the  normal,  ballistic  error  distribution*  On  the  ground, 
the  error  relates  to  an  ellipse. 

The  deflection  component  (the  component  of  the  error 
transverse  to  the  flight  direction  of  the  aircraft) 
translates  to  distance  simply  with: 

DISTANCE  -  THETA  *  SLANT  RANSE 

where  slant  range  is  as  described  above,  and  theta  is  the 
angular  displacement. 

So  in  this  example: 

DISTANCE  -  0.00S  *  4020*  -  20.1’ 

But  since  the  20’  is  error  probable,  it  must  be  converted 
to  a  normal  distribution’s  standard  deviation  (S/D). 

Again,  refer  to  Hachida  or  Pemberton  for  the  derivation, 
but  t  ie  conversion  for  range  or  deflection  is  simply: 


0.67S  S/D  ■  Error  Probable 


Figure  B.3  Ballistic  Dispersion  Error  Applied  to  Release. 

The  elliptical  pattern  is  due  to  the  slant  between 
the  weapons  trajectory  and  the  ground.  Circular  error  in 
the  plane  normal  to  the  trajectory  of  the  weapon  is  a 
circle.  But  the  same  error  in  a  plane  perhaps  68.1  o-ff 
the  normal,  will  be  an  ellipse.  Using  the  same  example. 
Figure  B.3  (a)  depicts  the  case  where  the  3  mils  add  extra 
depression  to  the  trajectory,  and  produce  a  short  impact, 
and  (b)  depicts  the  case  where  the  ballistic  dispersion 
reduces  the  depression,  and  the  bomb  goes  long.  Note  the 
differences  in  ground  range. 

It  is  error  in  the  ground  plane  that  misses  the 
target,  not  errors  in  some  hypothetical  plane  normal  to  the 
weapon  trajectory.  But  again,  converting  34'  to  a  S/D 
yield  a  sigma  of  80*.  Thus,  this  Appendix  has  briefly 
shown  how  the  80’  REP,  and  30*  DEP,  used  in  the 
demonstration  experiment,  wer 
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Appendix  C 


Program  Viriablt  List 


N8AMPT:  Writs  to  output  svsry  NSAMPT 

NSAMP:  total  #  lionts  Carlo  itsrations 

Tire:  sstisatsd  CP  tims  <TXXX  on  job  control  card) 

LUNITO:  Input /output  option 

NFLAG3:  m  0:  nothing 

■  l:  and  NSAMP  >  200 ,  will  rsducs  samp Is 
size,  if  appropriats 

ZALPH:  Normal  Z  for  ons-half  r squired  confidsncs 

ERROR:  Tolsrabls  difference  in  probability  between 

sample  and  true 

NELT:  #  targets  (max  112) 

NTQPS:  *  target  groups  (max  19) 

APPRCW:  min  taxi  width*  also  flag:  *  0.0,  then 

suppresses  search  for  taxi  approach  to  clear 
strip 

NAREA:  Flag  to  compute  damage  area  of  TOL 

-  0:  Yes;  -  i:  No  (skips  OVLAP) 

T0T(I, 1) :  X -coord,  center  of  I  target 

(1.2) :  Y -coord,  center  of  I  target 

(1.3) :  orientation  angle,  degrees 

(1.4) :  length 
(1,9):  width 

1T8T(1,1):  target  type  code  m  i:  surface 

■  0:  not  surface 

(1.2) :  surface  code  for  crater  radius  table  (max  11) 

(1.3) :  target  group,  with  which  I  is  associated) 


CRITU,  1) :  Flags  typs  of  surfacs  capability 
(din  Clear  Length  -for  TOL) 

MCL-0.0  indicates  taxi  only  (w/meandering 
course) 

MCL" length  indicates  length  o-f  clear  strip 
required  to  permit  TOL 
(1,2):  Min  Clear  Width  required... 

for  TOL  if  MCL  »  0.0 
for  taxi  if  MCL  -  0.0 

NPATT:  number  of  weapon  patterns  (max  12) 

M:  #  different  surface  hardnesses  (max  11) 

N:  #  of  warhead  codes,  (max  of  6) 

NSQCR:  Crater  Code  *  0:  craters  input  square 

»  0:  craters  input  round, 

converted  to  eqv’t  sq  area 

CRTABU, J,K) :  the  crater-size  storage  array  where  subscript 
t  ■  surface  type  1-11 
J  -  weapon  type  1-6 
K  -  type  of  encounter 

*»l:  for  Bldgs — near  miss  size 

for  Pavement — TOL  crater  size 
*2:  for  Bldgs — direct  hit  crater  size 
for  Pavement— taxi  crater  size 

NATT:  #  of  attacks  (max  10) 


MXPTCH:  #  patches  resources  will  allow 


IREPR: 


airbase  established  priority  for  repair  of 
craters  (see  program  list,  Appendix  E) 


NPATCH:  •  of  patches  time  will  allow  after  attack 


PASSU, 1>: 
(1,2): 

(1.3) : 

(1.4) : 
(1,9): 


X-coordinate  of  aimpoint,  pass  number  1 
Y-coordinate  of  aimpoint 
ax i s-of -attack 
Pr  a/c  reaches  target 
Pr  a/c  can  reattack 


IPA88(X,1): 

(1,2): 


Pattern  #  from  PATT  array 

Next  pass  number  that  this  a/c  is 

responsible  for. 


C-2 


*  LAST  UPDATE  01/1290  WAR  84  FILE: INPUT. AAP 

IHHHHHftHHHitHHIHIMHHHHtHHIHOHHHHHHHHHHIH 

PR08RAW  AAPIN ( INPUT, OUTPUT , TA?E5=I NPUT ,TAPE4*QUTPUT) 

* 

REAL  T8T(112,5) ,CR IT i 112,2), PATT (12,34) ,CRTAB(11.6.2),PA5S!32,6) 
INTESER  ITBT (112, 3) , 1PAT ( 12, 4) , IPASS (32, 21 . OPT (32, 2) 

CHARACTER  FNAME«6,YESN0*1 

> 

PRINT* 

PRINT* 

PRINT  909 
9H  FORMAT  ( 

1 IX, *  THIS  PROSRAW  HILL  CREATE  A  LAUNDERED  INPUT  TAPE  FOR  THE’,/, 
211. ’MODIFIES  ATTACK  ASSESSMENT  PROGRAM— A APMGD.  TOUR  OPTIONS’./, 
31X/ARE  TNO:’,/, 

411,’  #:  CREATE  A  NEN  TAPE’,/, 

SIX, *  l:  MODIFY  OR  CHECK  AN  EXISTING  TAPE’) 

PRINT*, ’ENTER  CHOICE,  i  OR  i**>  ’ 

READ*, 1CHC 
IF  (ICHC.EO.I)  THEN 
PRINT* 

PRINT* 

FRINT*,'BE  SURE  TO  CHOOSE  A  NEN.  UNUSED  FILE  NAME...’ 

PRINT*, ’ENTER  FILE  NAME  FOR  THIS  TAPE  (MAX  6  CHARACTERS >*=)  ’ 
READ  933, FRAME 

0PEN(UNIT*12,FILE*FNAH£,STATUS=’NEH’) 

PRINT* 

FRINT* 

PRINT*. ’ENTER  PROGRAM  CONTROLS:’ 

1  PRINT*, ’SEED  (MAX  If  DIGIT  INTEGER)**)  ’ 

READ*, ISCED 

IF  ( (ISCED.LT. 1 ) .OR. < ISEED. GT. 9999999999) >  SO  TO  l 
PRINT*, ’NUMBER  OF  MONTE  CARLO  ITERATIONS**)  ’ 

REAfi*,NSAMP 
ERROR*!. 13 
Z ALP H* 1.643 
NFLAG3*! 

IF  (NSAHP.BT.2II)  THEN 

PRINT*, ’DO  YOU  WANT  TO  REDUCE  SAMPLE  SIZE,  IF  PRACTICAL?’ 
PRINT*, ’Y/N**)  ’ 

READ  934, YESNO 
IF  (YESNO.EQ.’Y’)  THEN 
NFLAG3*! 

PRINT*, ’DEFAULT  IS  0.0S  ERROR  FROM  TRUE  PROBABILITY. ’ 


R 
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PRINT#, ’HITH  A  TST  HARDNESS -CODE,  DETERHINES  THE  CRATER  SIZE.’ 
PRINT#, 'NOTE...  TNO  DISPENSERS  KITH  THE  SANE  SUBNUNITIDN’ 
PRINT#,’ BUT  IN  DIFFERENT  NUHBERS  OF  SUBMUNITIQNS.  DOES  NOT.' 
PRINT*, ’REPEAT,  DOES  NOT  IHPLY  DIFFERENT  NEAPONS  AT  THIS  POINT.’ 
6  PRINT#,’ (HAX  6)**>  ’ 

READ*,NNPN 

IF  (NNPN.ST.6)  60  TO  b 
PRINT#,’*#*#  READ  CAREFULLY  *♦##’ 

PRINT* 

PRINT#, ’FOR  ANY  COMBINATION  OF  SURFACE  TYPE  AND  NEAPQN  TYPE,’ 
PRINT#, ’AAPHOD  USES  TNO  DIFFERENT  CRATER  SIZES.  THE  SIZE  USED’ 
PRINT*,’ DEPENDS  ON  NHETHER  THE  IMPACT  NAS  AGAINST  A  PAVEMENT,’ 
PRINT#, ’OR  A  NON-PAVEMENT  (A  BUILDING).’ 

PRINT# 

PRINT#, ’IF  THE  TARGET  TYPE-CODE  HAS  ASSIGNED  TO  A  PAVEMENT, ’ 
PRINT#, ’FIRST,  ENTER  THE  SIZE  OF  THE  DISRUPTION  SEVERE  ENOUGH’ 
PRINT#, ’TO  DENY  HI-SPEED  TOL  OPERATIONS,  AND  THEN  THE  SIZE  OF’ 
PRINT#, ’DISRUPTION  SEVERE  ENOUGH  TO  DENY  TAXI  OPERATIONS.’ 

PRINT* 

PRINT*, ’IF  THE  TARGET  HAS  A  BUILDING,  FIRST  ENTER  THE  CRATER  ’ 
PRINT*, ’RADIUS  RESULTING  FROH  A  NEAR-NISS,  THEN  THE  RADIUS’ 
PRINT*, ’RESULTING  FROH  A  DIRECT  HIT.’ 

PRINT# 

PRINT#,’ ALSO,  AAFNOD  USES  SQUARE  CRATERS.  CHOOSE  ENTRY  NODE: ' 
PRINT*,’  6:  INPUT  AS  HALF-LENGTH  GF  SIDE  OF  SQUARE  CRATER’ 

PRINT#,’  l:  INPUT  AS  RADIUS  OF  CIRCULAR  CRATER’ 

PRINT*, ’CHOICE2*)  ’ 

READ#,  WAR 

PRINT#, ’THIS  TAPE  PROGRAM  HILL  LOOF  SLOHEST  ON  INTERACTIONS.’ 
PRINT#,’ THEN  HARDNESS  TYPES,  AND  FASTEST  ON  HARHEAD  TYPE.’ 
PRINT#, ’ENTER  CRATER  SIZES  AS  INSTRUCTED:’ 

PRINT#, ’ 6000  LUCK...’ 

FRINT# 

IF  (NSQR.EQ.I)  THEN 

PRINT#, ’USE  i/2  THE  LENGTH  OF  A  SIDE...’ 

PRINT# 

ELSE 

PRINT#,’ USE  THE  RADIUS  OF  A  CIRCULAR  CRATER...’ 

PRINT# 

ENDIF 

DO  311  I*1,NSFC 
DO  301  J=i,NNPN 
IF  (I.LE.NTP)  THEN 

PRINT*, ’ SFC  TYPE  ’.I,’,  HPN  TYPE  DENY-TOL  SIZE**)  ’ 

ELSE 

PRINT#, ’BLDG  TYPE  HPN  TYPE  \J,’  NEAR-HiSS  SIZE**)  ’ 
ENDIF 

READ»,CRTAB(I,J,1) 

301  CONTINUE 
PRINT# 

PRINT* 
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IF  (NSQR.EQ.0)  THEN 

PRINT*, ’USE  1/2  THE  LENBTH  Or  A  SIDE...’ 

PRINT* 

ELSE 

PRINT*, ’USE  THE  RADIUS  OF  A  CIRCULAR  CRATER...’ 

PRINT* 

END  IF 

DO  302  I=1,NSFC 
DO  302  J»i,NNPN 
IF  (I.LE.JITP)  THEN 

PRINT*, ’SFC  TYPE  ’,1,’,  NPN  TYPE  \J,’  DEMY-TAXI  SIZE«> 
ELSE 

PRINT*, ’BLDG  TYPE  WPN  TYPE  ’,J,’  DIRECT-HIT  SIZE« 
END  IF 

READ*,CRTAB(I,J,2) 

302  CONTINUE 

IF  (NS8R.ES. 1)  THEN 
DO  310  Isl,NSFC 
DO  310  J-l.NNPN 
DO  310  K-1,2 

CRTABd.  J,K)=CRTAB(I,  J.K)*0.S86 
310  CONTINUE 
ENDIF 


PRINT*, ’DESCRIBE  THE  TARSET  COMPLEX:’ 

2  PRINT*, ’NUMBER  OF  TARGET  ELEMENTS  (MAX  U2)==>  ’ 

READ*, KELT 

IF  ( (NELT.LT.l). OR. (NELT.GT. 112)1  SO  TO  2 

3  PRINT*, ’NUMBER  OF  TARGET  GROUPS  (MAX  15)«>  ’ 

READ*,NTGPS 

IF  ((NTGPS.LT.l).QR. (NTGPS.ST.15))  GO  TO  3 
PRINT*, ’MIN  NIDTH  FOR  TAXI  OPS==>  ’ 

REAO*,APPRCN 

4  PRINT*, ’NUMBER  OF  TOL  CAPABLE  SURFACES  (MAX  3)«>  ’ 

READ*,NCP 

IF  (NCP.ST.3)  GO  TO  4 

PRINT*, ’NUMBER  OF  PAVEMENTS  FOR  TAXI  ONLY  (MAX  ’,30-NCP.’)« 
READ*, LV 

IF  ((LV+NCPi.GT.30)  THEN 
PRINT*, ’TOO  MANY  SURFACES,  MAX  IS  30.’ 

60  TO  4 
ENDIF 

PRINT*, ’NUMBER  OF  NON-PAVEMENTS  (MAX  !,NELT-LV-NCP.’I«>  ’ 
READ* ,N BLDG 

IF  ( (LV+NCP+NILD6) .ST. 112!  THEN 
PRINT*, ’TOO  MANY  TARGETS,  MAX  IS  112.’ 

60  TO  4 
ENDIF 
FRINT  903 

90S  FORMATdX,//, 

1  IX, ’YOU  MUST  NON  DEFINE  EACH  TARGET.’,/. 


2  IK, ’ESTABLISH  AN  K-Y  COORDINATE  SYSTEM  FOR  THE  COMPLEX. ’ ,/, 

3  IK, ’THE  POSITIVE  X-AKIS  BECOMES  0  DESREES  AN6LE-0FF.’,/, 

4  IK, ’RECOMMEND...  MAIN  RUNHAY  CENTER  AhD  ORIENTATION  DEFINE’,/. 

5  IK, ’THE  COORDINATE  SYSTEM.  LATER,  ATTACK  PASSES  ALSO’,/, 

6  IK, ’HAVE  AIMPQINTS  AND  ANGLE-OFF  DEFINED  BY  SAME  SYS'EM.’) 

PRINT  910 

910  FORMAT (IX,/, 

1  IX, ’INPUT  PROMPTS  ARE  DEFINED  AS  FOLLQNS :’.//, 

2  1X,’X-CQQRD:  K-COORDINATE  OF  THE  CENTER  OF  THE  TARGET,’,/. 

3  IK,’  REFERENCED  TO  COORDINATE  SYSTEM  OF  COMPLEX.’,/, 

4  1X,’Y-CQ0RD:  TYPICAL  TO  X-COORD.’,/, 

5  IK,’  AXIS!  ORIENTATION  OF  TARGET  CENTERLINE.  MEASURED  CCN’,/, 

6  IX.’  FROM  *X-AXIS  OF  COORD  SYSTEM  OF  THE  COMPLEX.’,/, 

7  IK,’  LENGTH!  BOTH  LENGTH  AND  NIDTH  ARE  SELF-EXPLANATORY...,’,/, 

8  IK,’  NIDTH:  AND  MAY  BE  CHOSEN  ARBITRARILY.’,/, 

9  !X,’TYPCODE:  TYPE  OF  TARGET  1  =  PAVEMENT  (TAXI  OR  TCL)’./, 

+  IX,’  8  5  NON-PAVEMENT  (BUILDING)’,/, 

1  1X,’SFCC0DE:  HARDNESS  OF  TARGET  (FOR  CRATER  TABLE  LOOKUP)’,/, 

2  IX,’  TGTGRP:  TARGET  GROUP  THE  TARGET  BELONGS  TO’,//, 

3  IX,’  »*  ENTER  0  TO  CONTINUE  *»’) 

READ*,  MIT 

FRINT  915 

915  FORMAT! IX,/, 

1  IX, ’TNO  OTHER  PROMPTS:’,/, 

2  IK,’  NINCL:  MINIMUM  CLEAR  LENGTH  REQUIRED  FOR  TOL  OPS’./. 

3  IX,’  ENTER  ZERO  FOR  TAXI-ONLY  PAVEMENTS.’,/, 

4  IK,’  HINCN:  MINIMUM  CLEAR  NIDTH  REQUIRED  FOR.,.’,/, 

5  IX,’  TAXI*.  lfMNCL  =  0.0  (TAXI-ONLY)’,/, 

6  IX,’  TAKE-QFF/LAND:  IF  MINCL  .NE.  0.0.’,//, 

7  IX. ’ENTER  PAVEMENTS  IN  ORDER  OF  PRIORITIZED  IMPORTANCE,’,/, 
a  IK, ’MOST  IMPORTANT,  FIRST.’,///) 

* 

NTOL=0 

NPAV=0 

* 

DO  100  I*1,NELT 
104  CR!T(I,1)=8. 

CRIT (1,2) =0. 

PRINT*,’ FOR  TARGET  NUMBER  ’,1,’,  ENTER:’ 

PRINT*, ’X-CQORD**)  ’ 

READ*, T6T( 1,1) 

PRINT*,  ’Y-COQRD**)  ’ 

READ*. TGT ( I , 2) 

PRINT*,’  AXIS**)  ’ 

RE AD*, TGT (I, 3) 

IF  (TGT (1, 3). SE. 180.0)  TST(I,3)*TST(I,3)-IS0. 

TST(I,3)*TST(I,3)*0.01745 

PRINT*,’  LENGTH**)  ’ 

READ*,TBT (1,4) 

PRINT*,’  NIDTH**)  ’ 

READ*, TGT (1.5) 


IF  ((I.LT.(NCP+tV)).AND.d6Td,5).GT.899.0) )  THEN 
PRINT*, ’CODE  TO  ACCUMULATE  TOTAL  PAVEMENT  AREA  DAMAGED  IS’ 
PRINT*, ’DESELECTED,  SINCE  THIS  TARGET  23  TOO  HIDE  FOR  ROUTINE.’ 
NAREA=t 
END  IF 

111  PRINT*, ’CHOICE  OF  TYPES:  I  -  BLDS  /  1  =  PAVEMENT’ 

PRINT*, ’TYPCODE==>  ’ 

READ*, IT6T (1,1) 

IF  (dTBTd,l).NE.0).AND.  dTGTd,l).NE.  D)  60  TO  111 

102  PRINT*,  ’SFCC0DE«>  ’ 

READ*,ITGT(I,2) 

IF  (ITST(I,2).GT.ll)  THEN 
PRINT*, ’TOO  MANY.  MAX  IS  11.  RE-ENTER.’ 

60  TO  112 
END1F 

IF  (((ITST(I,1).ES. D.AND.  { IT6T (1,2). GT.NTP) > - QR. 

1  ( (ITBT <I,1).EQ.0>. AND. < IT6T (1,2). LE. NTP) ) )  THEN 

PRINT*,’***  MISMATCH  WITH  SFC  CODE  AND  T6T  TYPE  *♦*’ 

PRINT*,’  IF  UNRECONCILABLE  AT  THIS  INPUT  POINT,’ 

PRINT*,’  YOU  MUST  TERMINATE  PROGRAM  WITH  <XA>.’ 

PRINT*,’  AND  RESTART  HHEN  YOU  CLEAN  UP  THE  ERROR.’ 

PRINT* 

SO  TO  102 
ENDIF 

103  PRINT*,’  T6TGRP==>  ’ 

READ*,ITGTd,3) 

IF  dTGT(I,3).GT.15)  THEN 
PRINT*, ’TOO  MANY.  MAX  IS  IS.  RE-ENTER.’ 

SO  TO  103 
ENDIF 

IF  dTSTd,l).EQ.l)  THEN 
NPAV=NPAV+1 

IF  (NPAV.ST.NCP+LV)  THEN 

PRINT*, ’NUMBER  OF  PAVEMENTS  EXCEEDS  ’.NCP+LV,’.  TOO  MANY.’ 
NPAV=NPAV-1 
GO  TO  104 
ENDIF 

PRINT*, ’TARGET  ’,1,’  IS  A  PAVEMENT.  ENTER  MINCL  FOR  TOL.’ 
PRINT*,  ’(0  IMPLIES  TAXI  ONLY)  HINCL«>  ’ 

READ*, CRIT  < 1 , 1 ) 

IF  ICRIT(I,t).LT.1.0)  THEY 
PRINT*, ’PAVEMENT  ’,1,’  IS  FOR  TAXI  ONLY.’ 

PRINT*, ’ENTER  MINCH  FOR  TAXI  QPS«>  ’ 

ELSE 

NT0L«NT0L+t 
IF  (NT0L.6T.NCP)  THEN 

PRINT*, ’NUMBER  OF  TOL  SFCS  EXCEEDS  ’,NCP,’.  TOG  MANY.’ 

NPAV*NPAV-1 

NT0L=NT0L-1 

SO  TO  104 
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PRINT*,’ PAVEMENT  ’,1,’  SUPPORTS  TOL  OPS.’ 

PRINT*. ’ENTER  NINCN  FOR  TOL  OPS22)  ’ 

ENDIF 

READ#,CRIT(I,2) 

ENDIF 

1M  CONTINUE 

* 

DO  920  1=1,6 
PRINT* 

920  CONTINUE 

* 

III  PRINT*,’ENTER  THE  NUMBER  OF  DIFFERENT  WEAPON  PATTERNS’ 

PRINT*,’ USED  IN  THE  ATTACK  IMA*  12)==>  ’ 

READ*,NPATT 

IF  tNPATT.BT.12)  SO  TO  211 
PRINT* 

PRINT* 

» 

DO  200  I=1,NPATT 

PRINT*, ’DESCRIBE  WEAPONS  DELIVERY  PATTERN  NUMBER 
PRINT*, ’ENTER:’ 

202  PRINT*,’ NUMBER  OF  WEAPONS  IN  THE  PATTERN  (MAX  12)==>  ’ 

READ*, IPATt 1,1) 

IF  t(IPAT(I,t).6T.12).0R. (IPAT(I.l).LT.l))  50  TO  202 
PRINT*, ’NEAPON/CANISTER  FUZE  RELIABILITY2*)  ’ 

READ*, PATTI I, 9) 

PRINT*, ’NUMBER  OF  CRATERS  PER  WEAPON. ’ 

PRINT*, ’  EN7ER  1  FOR  SP  OR  SUIDED  MUNITIONS, ’ 

PRINT*,’  OR  THE  NUMBER  OF  BQM8LETS  FOR  CLUSTERED  UNITS.’ 
PRINT*,’  ENTER  NUMBER2*)  ’ 

READ*,IPAT(I,2) 

203  PRINT*, ’NEAPON  CODE  FOR  CRATER  TABLE22)  ’ 

READ**,  IPAT  (1,3) 

IF  (IPA7(I,3).GT.NNPN?  THEN 
PRINT*, ’ONLY  STORED  ’,)(NPN,’  NEAPON  TYPES,’ 

PRINT*, ’CORRECT  OR  TERMINATE  AND  FISURE  IT  OUT.’ 

GO  TO  203 
ENDIF 

204  PRINT*, ’INDIVIDUAL  NEAPON  TRAJECTORY  CODE:’ 

PRINT*,'  0:  DUMB,  GENERAL  PURPOSE  WEAPONS’ 

PRINT*,’  l:  CBU,  RECTANGULAR  PATTERN  (DOES  NOT  ALLON  VOIDS)’ 
PRINT*,’  2:  CBU,  ELLIPTICAL  PATTERN  (ALLONS  VOID  AREA)’ 
PRINT*,’  3!  GUIDED  HUNT I ON’ 

PRINT*, ’ENTER  CODE22)  ’ 

READ**,  IPAT  (1,4) 

IF  UIPATU,4).LT.0>.OR.(IPAT(l,4).ST.3>)  GO  TO  204 
PATT  < I , If )«#. 

IF  UPAT(I,4).LT.3)  THEN 

PRINT*, ’NEAPON  PATTERN  NUMBER  M,’  USES  DUMB  BOMBS.’ 

PRINT*. ’DESCRIBE  ERROR  DISTRIBUTIONS  WITH  STD  DEVS.  ENTER:’ 
PRINT*, ’AIMPOINT,  RANGE  SISt1A«>  ’ 
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READ*, PATT (1,1) 

PRINT*, ’  DEFLECTION  SIGHA**)  ’ 

READ*, PATTI 1, 2) 

PRINT*,’ INDVDL  NPN  BALLISTIC  DISPERSION,  RANGE  S1SHA==>  ’ 
READ*,PATT(I,3) 

PRINT*,’  DEFLECTION  SIGHA**)  ’ 

READ*,PATT(1,4) 

IF  (IPAT(I,l).GT.l)  THEN 

PRINT*, ’DESCRIBE  THE  STICK.  FOR  EACH  WEAPON,  ENTER  ITS: 
PRINT*,’ SIGNED  (+/-)  RANGE  AND  DEFLECTION  POSITION  ' 
PRINT*, ’WITHIN  THE  STICK,  REFERENCED  TO  THE  AIHPQINV 
LASTJ-IPAT 11,1) 

DO  220  LJ-l.LASTJ 
JRN8=2*LJ+9 
JDEF*2*LJ+10 

PRINT*, ’NPN  ’,LJ, ’  RN6  COORD**)  ’ 

READ*, PATTI I, JRNG) 

PRINT*, ’NPN  ’,LJ,’  DEF  COORD**)  ’ 

READ*, PATTI I, JDEF) 

PRINT* 

CONTINUE 

ELSE 

PATTII,11)S0. 

PATT(I,12)*0. 

ENDIF 

IF  (IPAT(I,4).ST.0)  THEN 

PRINT*, ’DESCRIBE  CBU  B0N8LET  DISTRIBUTION.  ENTER:’ 
PRINT*, ’DOUBLET  FUZE  RELIABILITY**)  ’ 

READ*, PATTI I, 10) 

PRINT*, ’DISPENSER  GROUND  COVERAGE.  LENGTH  (RANGE)**)  ’ 
READ*, AL 

PATT(I,5)»0.5*AL 

PRINT*, ’DISPENSER  GROUND  COVERAGE,  NIDTH  (DEFLECTION;**)  ’ 
READ*, AN 
PATT(I,6)*0.3*AN 
IF  (IPAT (1,4) .87.1)  THEN 
PRINT*, ’VOID  LENGTH  (RANGE)**)  ’ 

READ*, VL 

PATTII,7)*#.5*VL 

PRINT*, ’VOID  NIDTH  (DEFLECTION)**)  ’ 

READ*, VM 
PATT(I,8)*0.5*VN 
ELSE 

PATT!I,7)*0. 

PATT(I,8)*0. 

ENOIF 

ELSE 

PAn(I,5)*0. 

PATT(I,6)*0. 

PATT(I,7)*0. 

PATT(I,8)*0, 


ELSE 

PRINT*, 'NEAPON  PATTERN  NUMBER  USES  GUIDES  MUNITIONS.  ’ 
20S  PRINT*, ’DESCRIBE  ERROR  DISTRIBUTION  WITH  STD  DEV  OR  CEPS:’ 
PRINT*,’  l:  ENTRY  AS  CEP’ 

PRINT*,’  2:  ENTRY  AS  STD  DEV  (SISNA)’ 

PRINT*, ’ENTER  CHOICE**)  ’ 

READ*, ICH 

IF  UICH.KE.D.AND.UCH.NE.2))  SO  TO  205 
PRINT*, ’ENTER:’ 

IF  (ICH.EQ.l)  THEN 
PRINT*, ’OPTIMAL  GUIDANCE  CEP**)  ’ 

READ*, CEP t 

PRINT*, ’NEAR-HISS  CEP**)  ’ 

READ*, CEP2 

PATT(1,1)*CEP 1/1.475 
PATT(I,2)=CEPl/0.475 
PATT(I,3)*CEP2/0.475 
PATTII,4)*CEP2/0.475 
ELSE 

PRINT*. ’OPTIMAL  SUIDANCE  RANGE  SIGMA**)  ’ 

READ*, PATTI 1,1) 

PRINT*, ’OPTIMAL  GUIDANCE  DEFLECTION  SIGMA**)  ’ 
READ»,PATTU,2) 

PRINT*, ’NEAR-MISS  RANGE  SIGMA**)  ’ 

READ*, PATT II , 3> 

PRINT*, ’NEAR-MISS  DEFLECTION  SIGMA**)  ’ 

REAB*, PATT (1,4) 

END  IF 

PRINT*, ’GROSS  ERROR  RANGE  SIGMA**)  ’ 

READ*, PATT (I. 5) 

PRINT*. ’GROSS  ERROR  DEFLECTION  SI6MA**)  ’ 

READ*, PATT (I, 4) 

PRINT*, ’PROBABILITY  OF  OPTIMAL  GUIDANCE**)  ’ 

READ*, PATT (I, 7) 

PRINT*, ’PROBABILITY  OF  NEAR-MISS  GUIDANCE**)  ’ 

READ*, PATT (1,8) 

END  IF 

200  CONTINUE 

PRINT* 

PRINT* 

PRINT*, ’HON  MANY  PATCHES  MILL  RESOURCES  ALLON?**)’ 

READ*,HXPTCH 
PRINT  925 
925  FORMAT! 

1  IX, ’SELECT  CRATER  REPAIR  PRIORITY:’.//, 

2  IX,’  0:  ALL  TOL  STRIPS  IN  ORDER  OF  TARGET  NUMBER.’,/, 

3  IX,’  1:  EASIEST  TOL  STRIP  FIRST.  REST  IN  ORDER.’,/, 

4  IX,’  2:  REPAIR  ONLY  THE  EASIEST  TOL  STRIP.’,/, 

5  IX,’  10:  ALL  PAVEMENTS  IN  ORDER  OF  TARGET  NUMBER.’,/, 

4  IX,’  It:  ALL  APPROACHES  AND  EASIEST  TOL  STRIP  FIRST,’,/, 


7  IX,’  FOLLOWED  BY  OTHERS  IK  TARGET  ORDER.’,/, 

8  IX,’  12:  ALL  APPROACHES  AND  ONLY  EASIEST  TOL  STRIP.’,//, 

9  IX, ’CHOICE==>  *) 

READ*, 1REPR 

NPATCH*99999 

PRINT* 

PRINT* 

PRINT*, ’ALMOST  DONE.  DEFINE  THE  ATTACK.’ 

PRINT*, ’ENTER  THE  FOLLOWING: ’ 

PRINT*, ’NUMBER  OF  PASSES  OVER  THE  COMPLEX  (MAX  32)»>  ’ 
READ*, NPASS 

IF  (NPASS. ST. 32)  SO  TO  7 

PRINT*, ’EACH  AIRCRAFT  MAY  REATTACK  ONE  TIME.’ 

PRINT*, ’NUMBER  OF  AIRCRAFT  PARTICIPATING  IN  THE  ATTACK")  ’ 
READ*, MAC 

RAT'REAL(NPASS) /REAL (MAC) 

IF  (RAT. ST. 2.1)  THEN 

PRINT*, ’INSUFFICIENT  A/C  TO  ACCOMPLISH  ATTACK.’ 

SO  TO  8 
ENDIF 
KAC*# 

CO  481  I* l, NPASS 
PA5S(I,5>'99. 

DO  4«1  J>1,2 
OPT(I,J)=0 
CONTINUE 
DO  400  1=1, NPASS 
PRINT*, 'PASS  NUMBER  ’, I,’.’ 

IF  (QPT(I,1).E(1.0)  THEN 
KAC=KAC*1 

IF  4KAC.ST.NAC)  THEN 

PRINT*, ’DISCREPANCY  IN  NUMBER  OF  A/C.  RE-ENTER.’ 

60  TO  7 
ENDIF 

PRINT  930, KAC 
ELSE 

PRINT  930, OPT (I, 2) 

ENDIF 

FORMAT (1X,’FL0HN  BY  A/C  NUMBER  M2.’:’) 

PRINT*,  ’AIMPOINT-X-COORD")  ’ 

READ*, PASS (1,1) 

PRINT*,’  Y-COORD**)  ’ 

RE AD*, PASS (I, 2) 

PRINT*, ’ATTACK  DIRECTION  (REFERENCED  CCN  PROM  +K-AXIS)'*) 
READ*, PASS (I, 3) 

PASS ( I , 3) 'PASS ( I , 3) *0. 01743 

PRINT*, ’NEAPON  PATTERN  CODE,  (ONE  YOU  DEFINED  EARLIER)*') 
READ*, IPASS( 1,1) 

IF  (IPASSdjD.ST.NPATT)  THEN 
PRINT*, ’UNDEFINED  PATTERN.  IF  IRRECONCILABLE  AT  THIS’ 
PRINT*, ’INPUT  POINT,  YOU  MUST  TERMINATE,  AND  RESTART.’ 


rTTCTOTTTTTy:  ?Z7X  Tg*7 ■-*■.'*'.!  f"  yjr. 


60  TO  9 
ENDIF 

IF  (0PTU,1).E9.#)  THEN 

PRINT*, ‘PROBABILITY  ft/C  SURVIVES  ENROUTE  ATTRITION")  ’ 

READ*, PASS (3, 4) 

PRINT*, ’NUMBER  OF  NETT  PASS  FOR  THIS  A/C«>  ’ 

READ*, IPASSi 1,2; 

IF  UPASS(I,2).6T.l)  THEN 

PRINT*, ’PROBABILITY  A/C  SURVIVES  TAR6ET  AREA  ATTRITION")  ’ 
REAS*, PASSU, S) 

0PT(IPASS<I,2),1)*1 
QPTUPASS(I,2)  ,2)*KAC 
ENDIF 
ELSE 

PASSU,  4)*1. 

I PASS (I, 2) =i 
PASS (I, 5) =80. 

ENDIF 

4«#  CONTINUE 
PRINT* 

PRINT* 

PRINT*,’  ♦**  DATA  INPUT  COMPLETE  ♦♦*’ 

PRINT* 

PRINT* 

NRITEU2.9SIUSEED 
NRITE ( 12,95#) NS AMP, NSAMPT 
NRITE 112, 975INFLA63, ERROR, ZALPH 
NRITEI 12, 97#) NELT, NTSPS, APPRCN, NAREA 
DO  5§0  1*1, NELT 

NRITEU2,955) (T6TU,J),J*1,5),  (IT6TU.J), j=l,3) 

IF  (ITSTU,1).EQ.  1)  NRITE(12,955)CRITU,1),CRIT(I,2) 

Si#  CONTINUE 

NRITE(12,93#)NCP,LV 
NRITEU2,95#)NPATT 
DO  511  I*1,NPATT 

NRITEU2,940)UPATU.JM*l,4),  (PATT(I,I),J=l,10) 
LASTJ*IPftTU,l) 

DO  Sif  LJ*1,LASTJ 
JRNS«2*LJ*9 
JDEF*2*LJ*10 

NRITEU2, 935)  PATT  U,JRN6),  PATT  ( I ,  JDEF) 

51#  CONTINUE 

NRITEU2,93#)NSFC.NNPN 
DO  521  Isl,NSFC 

NRITE  U  2, 945)  (CRTAB  U,J,1),J=1,  NNPN) 

521  CONTINUE 

DO  522  l*t,NSFC 

NRITE (12, 945) 1CRTAB  <I,J,2),J*1, NMPN) 

522  CONTINUE 
NRITE(12,95#)IKPTCN,IREPR,NPASS 
DO  530  Isl,NPASS 


D-ll 


•'  77  r.'  r.'Tjy.  T.-rrrjv.’K 


f 

; 


WRITE  (12,953)  (PASS  i  I ,  J  > ,  J=i ,  5) ,  (IPASStlJ) ,  J*!,2i 
530  CONTINUE 

CL0SE(UNITs12) 

ENOIF 

934  FORMAT (Al) 

935  FORMAT (A6) 

950  FORMAT (41 10) 

935  FQRHAT<5(F15.4,lXi,3I10) 

960  FORMAT (416, t#  <F9. 3, IX) ) 

965  FORMAT  <F14.3,F12. 3> 

970  FORMAT (21 10, F10. 1,1 10) 

975  FORMAT (110,2F10.4) 

END 


Appendix  E 
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•  LAST  UPDATE  11/121#  MAR  84  FILElMAlN.AAP  • 

IHHHHHHHHHHIMHIHHHHmHtHiHHHHIHHHHHHIHim 

PROGRAM  AAPMQD 

•  AIRFIELD  ATTACK  PROGRAM  * 

•  » 

•--USED  AT  ESLIN  AFB,  FL,  AND  SI-6#  CONTRACTOR  LOCATIONS.  * 

«  DEVELOPED  AT  OKLAHOMA  STATE  UNIVERSITY,  » 

•  UNDER  CONTRACT  F0863S-79-C-#25S ,  FOR  THE  JOINT  TECHNICAL  COORDINATING 

«  GROUP  FOR  MUNITIONS  EFFECTIVENESS.  * 

«  MODIFIED  BY  CAPTAIN  ROBERT  N.  MISLIN  TO  PROVIDE  INTERACTIVE  * 

«  CAPABILITY  FOR  TACTICS  ASSESSMENT.  • 

•  * 

•--NON-ANSI.  ANSI*#  REQUIRED  FOR  CDC  66##.  » 

«  • 

t 

CHARACTER  FNAME*6,FNAME2*6 
INTEGER  NPK32) 

» 

COMMON 


1  ADM(112) 

,GPHT(13) 

, MXFTCH 

,SI6ASH(112), 

2  AMIN13) 

,5PHTAC(15) 

, SIBAfiP  <3) , 

3  APRA13) 

jGPHTSUS) 

,SI6ASP(3), 

4  APRMIN(3) 

,LNHITS(112) 

,NSAMP1 

,SISCRT(3), 

S  AREPI3) 

, ICRAT (4) 

, PASS (0:32, 6 ) 

.SISCTS(27) , 

6  ASTP (3) 

, ICUT<4,3) 

, PATT (13, 34) 

,SISFIL(27), 

7  C0UNTRU12) 

,IHIT(3) 

,RAPF (112) 

, SIGHTS (112). 

B  CRIT (112,2) 

,IPASS(32,2) 

,RCUT(112) 

, SISNAF (112) , 

9  CRTABYl 1,6,2) 

,IPAT(12, 4) 

,RHIT(112) 

,SMINA(4), 

t  DECAR (112) 

,IPCUT(3) 

.SAPR(4) 

,SNAPFL(3). 

1  DSTR13) 

, SAPRA (4) 

,  T6T (112,5) . 

2  ENAPFL(3) 

,IPL(4#) 

, SAVE (B##, 3) 

,XC(3), 

3  SPADAC(IS) 

tISAV(BM) 

,SSAPR(4) 

,YC(3), 

4  SPADM(IS) 

. ITST(112,3) 

,  SBAPRAI4) , 

5  SPADMSU5) 

,  I2CUK4) 

, 36CRAT (4) , 

6  6PAREAUS) 

,KH(3) 

,SSMINA(4) 

CQNHON/RAY/TNOPI 


COMHON/RAY2/SDUARE  (9M)  ,CRMAK 

C0MM0N/END/NSAMP2 , NEL  T , NT8PS , NCP . CRN IN , APPRCN , N AREA 


C0NNQN/CATA/NUHAPR(4, 2) ,  STEftP  (303  i 


CONNQN/ J0HH/NFLA61 , NFLAG2,NHAX , NSAMPR, ZALPH, ERROR, HSAKP, NFLAG3 


-ISiPUT/ INITIALIZE 


TNCPI=6. 28318530718 
SRP I 04=0 . B8622&9254528 
POV180*#. 01745329252 


PRINT*, ’NAME  OF  INPUT  FILE55)  ’ 

READ  901,FNAHE 

0PEN(UNIT512, FILENAME, STATUS=’OLD’) 
REMIND  12 

PRIN~*,’NAHE  OF  OUTPUT  FILE")  ’ 

READ  901,FNAHE2 

QPEN(UNIT513,FILE5FNAH£2, STATUS5’ NEW’) 


READ (12, 991) I SEED 
CALL  RANSET(ISEED) 

ITDI*1 

READ  < 1 2, ») NSANP , NSARPT 
READ(12,*)NFLA63, ERROR, ZALPH 


-READ  TARGET  DESCRIPTION 


READU2,  *)NELT,NTSPS,  APPRCM.NAREA 
DO  30  I=l,NELT 

READU2,*)  (TBT(I,J),  J*l,5) ,  (ITGT(I,J), J5l,3) 
CRIT(I,1)=0. 

CR1T(I,2)50. 

IF  (ITGT(I,l).ES.l)  THEN 
READ(12,*)CRIT!I,1),CRIT(I,2) 

ENDIF 

CONTINUE 

READU2,*)NCP,LV 


- READ  PATTERN  DESCRIPTIONS 


READ(12,*)NPATT 
DO  4#  I*1,NPATT 

READ(12,*)(1PAT(I,J),J51,4), iPATT(I,J),J5l,12) 
NVALS5lPATU,li 
DO  40  IJ=1,NVALS 
3R»2*I3*9 
J0S2*IJ+1# 

READ (12, *)PATT ( I, JR) ,PATT ( I , JD) 

CONTINUE 


-READ  CRATERING  TABLE 


READI12,*)H,N 
DO  51  1=1, H 

READ (12,*) (CRTA8(I,J,1) , J=1,N) 

51  CONTINUE 

DO  52  1*1,  N 

READ ( 12, *) (CRTAB ( I . J , 2) , J=1 , N) 

52  CONTINUE 
CRNIN=t.0E10 
CRIMX=0. 

*  - READ  MISSION  DESCRIPTION 

*  IREPR...  TELLS  NHAT  TYPE  OF  REPAIRS  ARE  TO  BE  HADE 

*  *  i — ALL  MAJOR  PAVEMENTS  (CRIT(L, !)>«'. 

*  ARE  REPAIRED  IN  ORDER  INPUT 

*  *  1 --EASIEST  STRIP  TO  REPAIR  FIXED  FIRST, 

*  THEN  REST  WITH  (CRIT(L,1)>0>  IN  ORDER  INPUT 

*  *  2 — ONLY  EASIEST  STRIP  TO  REPAIR  IS  DONE 

*  *1X — REPAIR  STRIP  AND  APPROACH  IN  ORDER  OF 

*  *X*  ABOVE,  I.E.,  11  *>  APPROACHES  AND  1. 

READ  ( 12,  OHXPTCH,  IREPR.  NPASS 
DO  70  1*1, NPASS 

READU2,*)  (PASS(I,J) ,J*1,5),  (IPASSd, J) ,J*1,2),NPX(I) 

PASS (1.6) -PASS (I, 3) 

71  CONTINUE 

CLOSE (UNIT*12) 

* 

PRINT*,’ DO  YOU  WANT  AN  OUTPUT  ECPQ  OF  INPUT?  1*YES,  8=NQ  *=>’ 
READ*,OECHO 
IF  (OECHO.EQ. 1)  THEN 
NRITE(13,1970) 

KRITE( 13, 1950) I5EED 
NRITE< 13,1 950) NSANPjNSAHPT 
MITE(  13, 1980)NFLA63, ERROR,  ZALPH 
NRITE (13, 1975) NELT, NTSPS, APPRCH, NAREA 
DO  1500  1*1, NELT 

NRITE(13,1955) (T6T(I,J),J=1,5), (IT6T(I,J),J=t,3) 

IF  (IT6T(I,l).EB.l)  NRITE113, 1955)CRIT(I,1) ,CRIT(I,2) 

1500  CONTINUE 

NRITE (13, 1950) NCP,LV 
NRITE! 13, 1950JNPATT 
DO  1510  1*1, NP ATT 

NRITEU3.1960)  (IPAT(IjJ)  ,0=1,4),  (PATT(I,J),J=1,10) 
LASTJ»IPAT(I,1) 

DO  1510  LJ*1,LASTJ 
JRN6*2*LJ+9 
JDEF*2*LJ+10 

NRITE ( 13, 1955 ) PATT ( I , JRNG) , PATT ( I , JDEF ! 

1510  CONTINUE 

HRITEU3,195i)H,N 
DO  1521  1*1, H 
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NRITEU3, 1965)(CRTA8(I,  J,  II ,  J=l,N> 

1321  CONTINUE 

DO  1522  1=1,11 

WRITE(13,1965)  (CRTAB(I,J,2), J=1,N) 

1522  CONTINUE 

WRITE! 13, 1955) HXPTCH, IREPR, NPflES 
DO  1536  1=1, NP ASS 

WRITE!  13, 1955)  (PASSU,  J),J=1,5),  (IPASS(I.J), J=l,2) 

1530  CONTINUE 
ENDIF 

* 

i - INITIALIZE  FOR  MONTE  CARLO 

t 

WRITE (13, 905) FNANE,FNANE2 
NSAHPR=1 
DO  80  I=1,N£LT 
1T8TTP=IT8T(I,2) 

DO  80  J=1,NPASS 
NPTRN=IPASS(J,1) 

JNPNTP=IPAT (NPTRN, 3) 

IF  ( ITST (1,1). EB. 1)  THEN 
TBKD1=CRTA8(  IT6TTP,  JNPNTP,  1 ) 

TBHLD2=CRTAB ( 1TBTTP , JNPNTP, 2) 

CRNIN=AHIN1 (CRNIN.TBHLD1, TBHLD2) 

CRRAX-AHAX 1 (CRMAX , TBHLSi , TBHLD2) 

ENDIF 

80  CONTINUE 

CALL  INITL(NELT,NT8PS,NCP,LV) 

NNAX=f 

t 

*— TEST  TO  SEE  IF  LINITINS  NONTE  CARLO  LOOPS  IS  BOTH  DESIRED  (NFLAS3=ii 

♦  AND  APPROPRIATE  <NSANP>200).  IF  SO,  SET  FLAGS  AND  SET  INITIAL 

*  NONTE  CARLO  LOOP  LIMIT. 

i 

IF  ((NFLA63.E0.il. AND.(NSANP.SE.200)1  THEN 
NFLA61=0 
FFLA62=0 
NNAX=NSAMP 
NSANP=200 
ENDIF 


*  - NONTE  CARLO  LOOP  --  820  ON  (IT) 

* 

E5  DO  820  IT=NSANPR,NSAHP 

» 

• - INITIALIZE  VARIABLES  WHICH  GET  RESET  EACH  NONTE  CARLO  REP 

t 

NSANP2*IT 

100  DO  110  L*1,NELT 

OECAR (L)=T6T (L, 4) *T8T (L, 5) 


Hi  CONTINUE 

DO  120  L=l,3 
IPCUTtL)*# 

IHIT(L>=0 

PHIN(L)=0. 

APRHIN(L) *#. 

APRA(L>=0. 

120  CONTINUE 
N*0 
H0=0 
KZ=0 

t 

# - SET  NUMBER  Of  HITS  PER  TARGET  EQUAL  TO  ZERO 

t 

DO  130  L-l.NELT 
LNH1TS(L)*0 
130  CONTINUE 


-COMPUTE  IMPACT  POINTS  OF  WEAPONS 


10  DO  370  M,NPASS 


— SEE  IF  A/C  SURVIVED.  IF  YES,  CHANGE  NEXT  PASS  PS  TQ  REATTACK  PS 
IF  NOT,  CHANGE  NEXT  PASS  PS  TO  0.0, 

AND  LOG  NO  HITS  FOR  THIS  PASS 


NXTP*IPASS(I,2) 

CRAZYN*RANF ( ) 

IF  (CRAZYN. 6T.PASS (1,41)  THEN 
PASS(NITP,A)=0. 

GO  TQ  370 
ELSE 

PASS (NITP, 4 ) »PASS !  1 , 5 ) 

ENDIF 


NPTRN*IPASS(I,1) 
NNEP*IPAT(NPTRN.l) 
MOM*IPAT  (NPTRN,2) 
RHAJ=PATT(NPTRN,5> 
RHIN=PATT1NPTRN,6) 
VMAJ=PATT (NPTRN.7) 
VNIN«fATT(NPTRN,8) 
KODE*IPAT (NPTRN, 4) 


» - LOCATE  STICK  PATTERN  CENTER 

t 


PASSXT  *PASS  C I ,  I ) 
PASS YT “PASS (1,2) 


* 

«- 

( 


- IF  A  TOL  SURFACE,  DISPLACE  PINPOINT  FOR  AINPOINT  ERROR 


E-5 


IF  (NPX(I).LE.NCP)  THEN 
NTTT=NPX(I> 

CALL  TRISUB(DAP) 

PAESXT=PASSXT +DAP*CQS (T8T (NTIT,  3) ) 

PASSYT*PASSYT+DAP*SIN i TST (NTTT ,3)) 

ENDIF 

SINP=SW(PASSU,3>) 

CDSP=CDS (PASS  < 1 , 3) ) 

IF  (K0DE.E8.3)  THEN 

-  -BUI DEB  MUNITIONS... 

CRAZYN=RANF(> 

IF  (CRAZYN.LE.PATT (NPTRN, 7) )  THEN 
CALL  NORAN  (R,PATT (NPTRN, I) ,D,PATT (NPTRN, 2) ) 

ELSE 

IF  (CRAZYN. LE. PATT (NPTRN, 8) )  THEN 
CALL  NORAN  (R,PATT (NPTRN, 3) ,D, PATT (NPTRN, 4) ) 

ELSE 

CALL  NORAN  IR, PATT (NPTRN, 5) ,D, PATT (NPTRN, 6) ! 

ENDIF 

ENDIF 

X=FASSXT+R*CQSP+D*SINP 

Y»PASSYT*R*SINP-D*COSP 

ELSE 

-  -DUMB  BOMBS... 

CALL  NORAN  (R.PATT (NPTRN, 1! ,D, PATT (NPTRN, 2) ) 
XCTR=PASSXT+R»COSP+D*SINP 
YCTR=PASSYT+R*SINP-D*COSP 
ENDIF 

-LOCATE  NEAPON  IMPACT  OR  CEKTER  OF  DISPENSER  PATTERN 

DO  361  K31,NNEP 
CRAZYN=RANF ( ) 

IF  (CRAZYN.  ST.  PAH  (NPTRN,  9))  SO  TO  360 
IF  (KQDE.LT.3)  THEN 

CALL  NORAN  (R.PATT (NPTRN. 3!, D.PATTINPTRN, 4)) 

K2*2tK*9 

XIMODsXCTR+(PATT (NPTRN, K2) +R) *C0SP+ (PATT ( NPTRN, K2+ 1 ) *D) *5INP 
YINOD*YCTR+ (PATT (NPTRN. K2) +R) *SI NP- f PATT ( NPTRN, K2+ l !  +D) *COSP 
ENDIF 

--LOCATE  IMPACTS  (NBOM  3  i  OR  NMBR  BQMBLETS/CBL  SHELL) 

DO  351  Ml=l,NB0M 
IF  (K0DE.LT.3)  THEN 
X’XIMOD 
Y*YINCD 

IF  (NBQM.GT.U  THEN 
CRAZYN*RANF  ( ) 

IF  (CRAZYN. ST. PATT (NPTRN, II) )  SO  TO  350 
CRAZYN*RANF ( ) 


X 1 =2 .  »RMAJ  *CR AZY  N-RHAJ 
CRAZYN-RANF {> 

Yl=2. *RMIN*CRAZYN-RHIN 
IF  (KQDE.ES.2)  THEN 
X1Y10L=(X1**2/RHAJ**2)+(Y1**2/RHIN**2) 

IF  (X1Y1GL.ST.1.)  SO  TO  280 
IF  ( (VHflJ.6T.0.) .AND. (VNIN.6T.0.) )  THEN 
X i Y 1 1 L= ( X 1 **2 / VHA J  **2 )  -M  Y 1 **2/ VM I N#*2 ) 
IF  (X1Y1IL.LT. 1.)  SO  TO  2B0 
ENDIF 
END  IF 

X=X+X1*CQSP+Y1*SINP 
Y-Y+X t*SINP-Yl*COSP 
ENDIF 
ENDIF 


-CHECK  FOR  ANY  HIT  OR  NEAR-HISS 


DO  340  L=1,NELT 
SINT=SIN(TST(L,3)) 

C0ST=C0S(TGT(L,3); 

XP=X-TST(L,1) 

YP=Y-TST(L,2) 

T1=XP*CDST+YP*SIMT 

XP=YP*COST-XP*SINT 

ITGTTP*IT6T(L,2) 

JNPNTP=IPAT (NPTRN.3) 

IF  UL.6T.NCP!  .AND.  (L.LE.  (L¥*NC?1 1 1  THEN 
IF(ABS(T1)-CRTA8(IT6TTP,JHPNTP,2).5E. .5*T6T(L,4) )  SO  TO  340 
IF ( ABS < XP> -CRTAB ( ITGTTP, JS4PHTP, 2) . 5E. . 5*TGT (L , 5) )  SO  TO  340 
ELSE 

I F ( ABE i T 1) -CRTAB ( IT5TTP, JHPNTP , 1 ) . 6E. . 5*T8T ( L 1 4  > )  SO  TO  34fl 
IF(A8S(XP)-CRTAB(IT6TTP, JNPNTP, l).6E. . 5*TST (L, 5) )  SO  TO  340 
ENDIF 
H=t1+1 

IF  (tt.LE.800)  THEN 
SAVE(H,1)=T1*,5*TST(L,4) 

SAVE(n,2l*XP+.S*T6T(L,5) 

SAVE (H, 3) »FLOAT (L) 

ISAV(N)=IPAT(NPTRN,3) 

CDUNTR ( L) sCOUNTR ( L ) + 1 . 

LNHITS(L)*LNHITS!LM. 

ENDIF 

CONTINUE 

IF  (N.ST.800)  MRITEU3. 1200)1. N 
HSHIN0(N,800> 

CONTINUE 

CONTINUE 

CONTINUE 

K1£NDS8 

IF  (H.E8.0)  THEN 


*".  r.  7". ?.' ’■jr.T.'T; 3".  i'.  v.T-jaj 


ELSE 

* 

*  - TBT  L  IS  A  PAVEMENT 

» 

IF  (N.LT.l)  THEN 
IF  (L.LE.NCP)  THEN 
XC(L)s.5*(T6TIL,4)+CRIT(L.l) ) 

YCtL)=.5*«T6T(L,5)-CRIT(L,2)) 

ENDIF 
SO  TO  730 
ENDIF 

529  CALL  SORT ( N , S AVE < K0 , 1 ) , SAVE ( K0 . 2 ) , SAVE (Kd . 3 ) , 1 5A V ! K0 ) > 

IF  (NAREA.E8.0)  CALL  OVLAP 

1  I SAVE IK0, 1 ) , SAVE  IK#, 2) . CRT AS , ITST IL, 2) , ISAV (K9> 

2  IFIHTBT (L,4) ) . IFIXITBT (L,5) ) ,N,SUMRUN) 

* 

*  - TAX IWAYS  (MINOR  PAVEMENTS) 

*  FIND  NANDERIN6  PATH  ONLY  FOR  TAXI-ONLY  TARSETS  (CRIT(L,1!=0.1 

* 

IF  tCRIT!L,l).LT.l,f)  THEN 
CALL  MINCH  (CRMAX , N, SAVE IK0. 1),5AVE<K0,2) , 

1  CRTA6I1, 1,2) , ITST (L. 2) , ISAVIK0) , 

2  CRIT (L, 2) ,TST (Lf 5) , NFILL,CUTS, ARFILL) 

ARF ILS-ARF I LL 

FILL=FLOAT INFILL) 

710  RHIT!L)=RHIT(L)+F1LL 

NTXWY=L-NCP 

SI6FIL(NTXNY)sSIBFIL<NTXNY)+FILL*FILL 
RCUT  (L)*RCUT  ID+CUTS 
SIGCTS(NTXNY)  =SIBCTSU4TXMY)  +CUTS*CUTS 
ELSE 

• 

« - RUNHAYS  (MAJOR  PAVEMENTS) 

*  SEARCH  FOR  A  CLEAR  STRIP  (LENBTH=CRITIL.l)  .X.  NIDTH=CRIT(L(2J > 

t 

M0=K-1 

IF  ((K.EC.M).AND. (5AVE(N,3) tEB. FLOAT IL) ))  M0=M0+t 
IPCUTIL)*# 

IHIT(L)*# 

AMIN(L)=9. 

APRMIN(L) *#. 

APRA(L)=0. 

DO  540  KK’1,4 
DO  540  KK2st,2 
NUMAPR(KK,KK2)*0 
540  CONTINUE 

CALL  CLSTRP (CRMAX , N, SAVE (K0, 1 ) , SAVE (K0 , 2 ) , CRT AB , 

1  ITST (L,2) , ISAVIK0) ,TST!L, 4) ,T3T  !L,5>  ■ 

2  CRIT (L, 1) ,CRIT (L.2) , XC(L) , YCIL) ,NMIN) 

IF  (NMIN.ST.0)  THEN 

RCUT(L)=RCUT(LM. 


E-9 


IPCUT(L)=1 

ENDIF 

550  RHIT !L) sfiHIT (L) +FLOAT (NNIN) 

IHIT(L)*IW1IN 

SUHSTP*0. 

Kfll*K-l 

IF  1 (K. EQ.il)  .AND.  (SAVE1X,  3)  .ES. FLOAT (L) ) )  Krtl=K 

KA=1 

NFLfl6=f 

XS1*XCCL) 

Y5l=YC<L) 

XS2=XC (L) -CRIT (L, 1 ) 

YS2sYC(L)+CRIT(L,2) 

XH(L)*XZ 

KP1=X0 

560  CONTINUE 

IF  (iKPl.LE.N).AND.  (KNl.LE.M) !  THEN 
IT6TTP=ITGT(L,2) 

OS  580  KN*KPI,KH1 
JHPNTP~ISAV (KM) 

IF ( S AVE ( XN , 1 ) +CRTA8 ( I T6TTP , J  XPNTP , X A ) . LE . I S2)  80  TO  590 
IF1SAVE1KN, D-CRNAI.SE.XSl)  80  TO  5?0 
IFISAVE1KN,1)-CRTA81ITSTTP,JNPNTP,KA).SEJ31)  80  TO  530 
I F ( SAVE  < KW , 2) ♦C8TAB  < I TSTTP , J WPNTP , KA  > . LE . YS 1 )  SO  TO  580 
IF (SAVE (KW, 2) -CRTAB { ITBTTP, JWPKTP, KA) . 6E. YS2)  80  TO  580 
XZ=XZ+t 

IF  (KN.NE.KZ)  THEN 
51*SA VE<KH,l) 

S2=SAVE1XN,2) 

S3*SAVE1XN,3) 

ITT=ISAV(KN) 

KZP=KZ+1 

00  570  X8SXZP,KN 
XK*XN-K8tKZP 
SAVE (XX, 1) ’SAVE (XX- I, l) 

SAVE ( XX . 2 ) *SA VE ( XX- l , 2 ) 

SAVE (XX , 3 ) *SAVE 1 XX- 1 , 3 ) 

ISAV(XX)*ISAV(XX-t) 

570  CONTINUE 

SAVE(KZ,1)-S! 

SAVE(XZ,2)=S2 
SAVE (KZ, 3>  =33 
ISAV(KZ)*ITT 
ENDIF 

580  CONTINUE 

ENDIF 

390  IF  D1FIA8.EQ.0)  THEN 

XZT*0 

IF  (KZ.NE.KH1L9)  THEN 
XZT*XZ-XH1L) 

XX*XH(L)tl 
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KH(L)=KZ 

IF  (NAREA.LE.il  CALL  QVLAP 

1  (SAVEIKK, 1) ,SAVE(KK,2) ,CRTA8, ITGT  (L,2! , 

2  ISAV(KK) ,  XC ID-CRIT  (L,  1)  ,YC(L> ,  iFIXSCRITIL,  D) , 

3  1F1X (CRIT (L, 2) ) ,  KZT,  SUHSTP) 

600  ASTP (L) =ASTP (L ) +SUHSTP 

S I  GASP  ( L  >  =S  I SASP  ( L  >  +SUJ1ST  P*SUHSTP 
ANIN(L)*SUHSTP 
END  IF 

610  HFLA6=1 

KA=2 

KP1=KP1*IC2T 

KZ=KP1-1 

KZ1*KZ 

XS:»XC(L)-CR1T(L,1> 

IF  (XS1.SE.CRIT(L,2))  THEN 
XS2=CRIT!L,2) 

SO  TO  560 
ELSE 

60  TO  640 
ENDIF 
END  IF 

620  KZT=0 

NFILL=0 

IF  (KZ.NE.KZ1)  THEM 
KZT*KZ-KZl 
KK=KZ1*1 

IF  IHFLAS.SE. 3)  CALL  SCAT 

1  (KZT, SAVE (KK, 2) , SAVE (KK, 1 ) , SAVE (KK, 3) , ISAV (KK  >  > 

DO  892  II=l,KZT 

SAVE (KK+I 1-1,2) *SAVE (KK+I I - 1 , 2 ) -YS 1 
SAV^(KK+II-i,ll*SAVE(KK+II-l,i)-XS2 

892  CONTINUE 

i 

IF  (HFLA6.LE.2) 

1  CALL  HINCN (CRMAX , KZT, SAVE (KK. 1) ,SAVE(KK,2) . 

2  CRTA8 ( 1 , 1 , 2) , IT8T (L, 2) , ISAV (KK) , APPRCN . 

3  CRIT(Lf 2) ,NFILL, CUTS, ARFILL) 

* 

IF  (NFLAS.6E.3) 

1  CALL  HINCN (CRNAX , KZT , SAVE (KK ,  2) , SAVE (KK, I ) , 

2  CRTABII, 1.2) , ITSTIL, 2) , I SAV (KK) , APPRCN, 

3  CRIT (L,2) ,NFILL,CUT5, ARFILL) 

t 

DO  893  11*1, KZT 

SAVE(KK+II-i.Z)*SAVE(KK+II-l,2)+YSl 
SAVE (KK+I 1-1 , 1 ) -SAVE (KK+II-1 , I ) ♦XS2 

893  CONTINUE 
ARFILS*ARFILS+ARFILL 

ENDIF 

630  NUHAPR  (F1FLA8, 2)  =KZT 
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KZ=KZ1+HFILL 

KZ1=KZ 

NUHAPR(NFLA6,1)=NFILL 
F I LL=F I LL+FLQAT (NFILL) 

IF  IKZ.EQ.KN1)  SO  TO  670 
SO  TO  (64#,650,660,678).HFLAG 

PRINT#, ’ERR  SOTO  ORIGINAL  LINE  NUMBER  733’ 

(!FLAG®2 

NFILLa0 

KPI=KP1+KZT 

XS1=T6T(L,4)-CRIT(L,2> 

IF  (XC(l)  #CRIT (L,2) .LE.TGT (L«4) )  THEN 
XS2=XC (L) 

SO  TO  569 
ENOIF 

MFLA6*3 

KP 1 =KP 1 -NUH APR (1,2) +NUMAPR ( 1 , 1 ) +NF I LL 
CALL  SORT ( K-KP 1 , SAVE ( KP1 , 1 > . S A VE ( KP 1 , 2 ) , 

SAVE  <KP1, 3) , ISAV  <KP1 ) > 

XSlaCRIT(L,2) 

YS1=0. 

IS2-I. 

YS2=YC(L)+CRIT(L,2) 

60  TO  560 

HFLAB=4 

KPlaKPl+KZT 

XS1=T6T(L,4) 

XS2*TST ( L, 4 ) -CR IT ( L , 2 ! 

SO  TO  560 

KZaKH(L) 

IF  < (IREPR.SE. 10). AND. (FILL. ST. 0.))  THEN 
HRITE(13,890)L,KH(L),K0,FILL, 

(SAVE (KK, 1 ) , SAVE (KK, 2) , SAVEiKK, 3) ,KKal,N) 
KZ*KH(L) +IFIX (FILL#. 01 ) 

IF  (L.ST.l)  THEN 
K8*IFIX(FILL#.01) 

00  690  KZlal,K8 
KKaK0+KZl-l 
SlaSAVE(KK, 1) 

S2=SAVE(KK,2) 

S3*SAVE(KK,3) 

IS*ISAV(KK) 

KZPaKH(L)+KZl*l 
00  660  KM=KZP,KK 
KNlaKK-KN+KZP 
SAVE(KNl,l)aSAVE(KNl-l,l! 
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SAVE(KHl,2)*SflV£(Ktjl-l,2} 

SAVE (KHi f 3)-SAVE<KMl-l , 3) 
ISPV(K»1)=ISAV(KN1-1) 

680  CONTINUE 

KZP=KZP-1 
SAVECKZP, 1)=S1 
SAVE (KZP, 2) =S2 
SAVE(KZP,3)=S3 
ISAV (KZP)-IS 

698  CONTINUE 

ENDIF 
ENDIF 

710  SI8CRT (L) =SISCRT (L) +FL0AT (N«IN) **2 

ENAPFL<L>=£NAPFL(L)+FILL 
SNAPFL (U =SNAPFL tU +FILL**2 
APRNIN(L)*FILL 
SO  TO  720 
ENDIF 

720  ADMIL)*ADM(L)  ■‘■SUMRUN 

ITBTSP*IT6T<L,3) 

6PADAC t I TGTGP) -SPADAC ( IT6TSP ) ♦SUHRUN 
SIBADN(L) -SI8ADN (L) +SUHRUN*SUMRUN 
RAPF (L)*RAPF (L) +ARFILS 
S I SNAP ( L ) *S IGNAF ( L) +ARF I LS*ARF I LS 
IF  JCRITU.,  U.6T.0. )  APRA(L)*ARFILS 
ENDIF 

730  CONTINUE 
L-L+l 
K0*K 
FILL*#. 

ARFILL*#. 

ARFILS*#. 

CUTS*#. 

SUNRUN*#. 

IF  (SAVE  IK,  3).  ST.  FLOAT  UJ)  SO  TO  430 

IF  ( (K.EB.N) .AND. (SAVE (K, 3). EB. FLOAT (L) ) )  60  TO  43? 

IF  <(L.LE.NELT).AND. (K.EQ.N))  SO  TO  438 
ENDIF 

741  CONTINUE 

DO  731  3*l,NT6PS 
SPADNS(J) *8PADMS(3) + SPADAC <J)**2 

731  CONTINUE 
113*1 

t 

, - COMPUTE  COMBINED  PROBABILITIES  FOR  RUNWAY,  TAXIWAY, AND  SOD 

* 

IF  (NCP.ST.t)  THEN 
I3*« 

K3*l 

IFIN*0 

DO  790  33*1,2 
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90  79#  JK«1,N€P 

t 

, - QNLT  INTERESTED  IN  1*2  (KJ*1>,  1*3  (KJ*2),  2*3  (KJ»3) 

t 

IF  (ja.6E.JK)  GO  TO  79# 

IF  (IPCUT(II3).EQ.f)  GO  TO  740 
IF  (IPCUT(JJ).NE.l)  IZ3SJJ 
IF  (IPCUT(JK).NE.l)  II3-JK 

74#  IF  {(IPCUT(JJ).NE.ll.OR. (IPCIITI JKl.NE.il)  SO  TO  7B# 

* 

*  - BOTH  SURFACES  ARE  CUT 

* 

13*13+1 

» 

*  - II  INDICATES  WHICH  SURFACE  HAS  THE  MINIMUM  NUMBER  OF  CRATERS  TO 

*  REPAIR  FOR  COMBINATIONS  OF  2  SURFACES  AND  1 13  FOR  ALL  3  SURFACES 

i 

I2*JJ 

IF  ( IHIT ( J J) .6T. IH1T ( JK) )  IWK 
IF  ( IHIT (II3).67.IHIT (JK) )  II3*JK 

« 

*  - DISTRIBUTION  OF  HINIHUH  NUMBER  OF  CRATERS 

t 

77#  ICUT (KJ , I I ) =ICUT (KJ, I I ) +1 

1 2CUT  <  K J ) s 1 2CUT ( K J ) ♦ 1 
SBCRAT (KJ)*S6CRAT (KJ ) +FLOAT (IHIT(II) )**2 

* 

« - MINIMUM  NUMBER  OF  CRATERS 

t 

ICRAT (KJ)*ICRAT (KJ) +IHIT (II) 

* 

*  - AREA  OF  CRATERS 

t 

SMINA(KJ)=SMINA(KJ)+ANIN(II) 

S6M I N A ( K J ) =S8M I N A ( KJ ) + AM I N i 1 1 ) **  2 

« 

« - HINIHUH  NUMBER  OF  CRATERS  ON  APPROACH  TO  OPERATIONAL  STRIP 

» 

SAPR  (KJ )  *S  APR  ( K  J )  +APRH I N  ( 1 1 ) 

SGAPR  ( KJ )  *S8APR !  KJ)  +APRHIN  ( ID++2 

* 

t - MEA  OF  CRATERS  ON  APPROACH 

t 

SAPRA (KJ ) *SAPR A ( KJ ) +APRA (II) 

SBAPRA (KJ ) »S6APRA (KJ ) +APRA (II)*#2 
IF  (IFIN.E6. 1)  60  TO  S#« 

78#  KJ*KJ+1 

IF  ( ( JC.NE. 2) . OR. ( JK . NE. 3) )  SO  TO  79# 

• 

* - ALL  COMBINATIONS  OF  2  SURFACES  HAVE  BEEN  LOOKED  AT.  IF  ALL  3 

»  SURFACES  HAVE  BEEN  CUT  (13*3)  COMPUTE  STATISTICS  FOR  ALL  3  *  EXIT 
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*  LOOP  (IFIN*1). 

t 

IF  (I3.NE.3)  60  TO  800 
KJ*4 
11=113 
IFIN=1 
SO  TO  770 
790  CONTINUE 
ENDIF 

800  CALL  REPAIRCHXPTCH^KZyHi, IREPR*CRMAX, II3,NAREAf NCP) 

N»HI 

*=# 

K2=# 

11=0 

810  IF  (IT.ST.U  THEN 

IF  (MflD(IT,NSAMPT).EB.i)  CALL  RESLTS 
ENDIF 

E20  CONTINUE 

t 

*  - TEST  TO  SEE  IF  LIHITIN6  MONTE  CARLO  LOOP  MS  DESIRED 

*  AND  APPROPRIATE.  IF  NOT,  AVOID  SUBROUTINE  ’NCOMP*. 

* 

IF  ((NFLAB3.E8.il. AND. (NSAHP.SE.200))  THEN 

t 

*  - TESTS  ON  FLA6S  SET  INSIDE  SUBROUTINE  ’NCGMP*  TO  DIRECT 

*  EITHER  RETURN  TO  MONTE  CARLO  LOOP  OR  PASS  ON,  BASED  CN 

*  ESTIMATE  OF  ITERATIONS  REQUIRED. 

» 

IF  (NaAS2.E8.0l  CALL  NCONP 
825  IF  (NFLA61.EB.0)  THEN 
NFLA61=1 
SO  TO  65 
ENDIF 
ENDIF 

t 

*  - CALCULATE  AND  PRINT  STATISTICS 

* 

£30  IF  (HOD((IT-1),NSANPT).NE.0)  CALL  RESLTS 
CLOSE (UNIT= 13) 

* 

840  FORMAT  (IX, ’NO  HITS  DURINS  ATTACK,  MONTE  CARLO  ITERATION:  ’,141 
890  FORMAT  (8H  TAR6ET  ,I3,9H  KH(L)  =  ,I4,6H  K0  *  ,I4,8H  FILL  =  ,F7.I,8 
100(/1X,3F10.2)I 
901  FORMAT (A6) 

905  FORMAT! '1  INPUT  FILE:  \A6,’  OUTPUT  FILE:  ’,A6,//) 

991  FORMAT (I 10) 

1200  FORMAT  (1H0,37HMORE  THAN  800  HITS  MERE  FOUND  IN  PASS,I4,1H./1X,20H 
(EXCESS  MERE  IGNORED. ) 

1934  FORMAT (Al) 

1935  FORMAT  <A4) 

1950  FORMAT (41 10) 
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1955  FORMAT <5(F15.4, IK) ,3110) 

1961  FORMAT (416, 18(F9.3, IX) ) 

1965  FORMAT (6F12. 1) 

1978  FORMAT (’l’,T28,’***  DATA  INPUT  ECHO  ***’,!!) 

1975  FORMAT (2118, F18. 1,118) 

1988  FORMAT (I18,2F10.4) 

END 

*  LAST  UPDATE  24/2388  FEB  84  FILEzSUBSl. AAP 

IHIHHIHHilHHItHiHHHHHmHHiHHHHHHHHHHHHtHHt 

SUBROUTINE  TRISUB(RV) 

U=FANF  ( ) 
laS0RT(2.8*U) 

RV*  1888. 8*1-1888.8 

RETURN 

END 

SUBROUTINE  N0RAN(R,SR,D,5D) 


COMNON/RAY/TMQPI 


XsRANFO 

ASSORT  (-2.  tALOG(D) 
X«RANF() 

I’TNOPItl 

R*F»SR*SIN(X) 

D»A*SD*C0S(1) 

RETURN 

END 


Wf 


SUBROUTINE  INITL(NELT,NTSPS,NCP,LV) 


COMMON 

1  ADH(112) 

,SPHT(15) 

,NXPTCH 

,SI6ADH(112), 

2  AMINI3) 

,8PHTAC(15> 

. SIGARP  (3) , 

3  APRA13) 

,6PHTS(15) 

. SIBASP (3) . 

4  APRMINI3) 

, LNHITS ( 1 12) 

,NSAMP1 

, SI3CRT (3) , 

5  AREP  <  3 ) 

,ICRAT(4) 

, PASS (0:32, 6) 

.SI6CTS<27), 

6  ASTP(3) 

,  ICUT (4,3) 

,PATT(13,34) 

,SI8FIL127), 

7  C0UNTRU12) 

,IHIT(3) 

.RAPFU12) 

, SIGHTS (112) , 

8  CRIT (112,2) 

,IPASS(32.2) 

,RCUT(112! 

, S15NAF ( 112) , 

9  CRTAB1 11,6,2) 

,IPAT(12,4) 

,RHIT(112i 

, SMINA14) , 

k  DECAR (112) 

,IPCUT(3) 

,SAPRI4) 

, SMAPFL ( 3 ) , 

1  DSTR(3) 

,SAPRA(4) 

, TOT  L112,5} , 

2  ENAPFK3) 

,IPl(48) 

, SAVE (888, 3) 

,  XC (3) , 

3  GPADACU5) 

,ISAV(808) 

,S8APR(4) 

,YC(3), 

4  6PADM(15) 

,ITGT(112,3) 

,SSAPRA<4), 

5  SPADMSI15) 

,I2CUT(4) 

,S8CRAT!4), 

6  3PAREA ( 15) 

, KH (3) 

,SSMINA(4) 

DO  18  I*1,NELT 
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COUHTR(I)M. 
SISHTS<I)*0. 
ADIi  ( I )  =f . 
5I6ADM ( I ) =#, 

10  CONTINUE 

DO  20  J=1,NT6PS 
SPHTS(J)*0. 
6PADHS(J>=0. 

20  CONTINUE 
IPAV=LV+NCP 
DO  30  K=l, IPAV 
SAPPHO  *0. 
5ISNAF (<)=#. 
RCUT (K) -0. 
RHIT(K) =f . 
SI6CTS<K)*0. 
SI6FIL  (K)  =#.' 
31  CONTINUE 

SO  40  L=1,NCP 
SI6CRT!L)=0. 
fiSTP<L>-0. 
SIGASP(U*0. 
AREP(l)=0. 
ENAPFI(L)=0. 
SNAPFL(L)=0. 
IH1T(L)=0 
IPCUT4L)*# 
AMN(L)s0. 
APRHIN1U=0. 
APRA(L)s0. 

DSTR  <  L) =#. 
SIGARP(L)=0. 

40  CONTINUE 
N1«NCP*1 
DO  S0  1=1, Nl 
I2CUT(I)*0 
ICRAT(l)=0 
S6CRAT(I)=0. 
SNINA(I)*0. 
S6NINA(I)*0. 
SAPR(I)**. 
S8APR(l)*0. 
SAPRAUJM, 
S8APRA(I)*0, 

DO  30  J«1,NCP 
ICUT(I,J)*0 
30  CONTINUE 
RETURN 
END 


SUBROUTINE  SORTIN, XI, YI, ZI. IX> 
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A.N 


DIMENSION  IX(N)fZI(N),XI(N),YHN) 
EQUIVALENCE  (IT,T) 


JQ=f 

JO=JO*JQ+l 

IF  (JO.LT.N)  SO  TQ  19 
JtMO/2 

IF  (JO.LE.0)  RETURN 
KO=N-JO 
DO  49  LO=t,KO 
MO=LO 
NO=NO+JO 

IF  (XI (HO). 8T. II (NO))  THEN 
T=XI(MO) 

XKMO)-XI(NO) 

XI(NO)sT 
T*YI (MO) 

YI(HO)»YHNO) 

YI(NQ)"T 
T=ZI (MO) 

ZI(MQ)=ZI(NO) 

ZI(NO)=T 

1T=IX(M0) 

IX(MO)=IX(NOi 
IX (NO)-IT 
MO*MO-IO 

IF  (H0.6T.9)  60  TO  30 
ENDIF 
CONTINUE 
GO  TO  29 
END 


SUBROUTINE  BIDS (XI, Yl, CRTA8, L, NP , N, TL , TN, AREA) 

DIMENSION  XI(N),YI(N),CRTAB(H,6,2),NP(N) 

--ASSESS  AREA  REMAINING  UNDAMAGED  AFTER  ALL  HITS  ARE 
EVALUATED  FOR  THIS  ATTACK 

RATIO*TL/TN 
DO  10  J*1,N 
DN*SORT (AREA/RATIO) 

OL«DN*RATIO 

XH*.3»(TL-DL) 


iwrw  lvlvlv  ^\*r  r  •:•  ■  <m  *r  ^  kw:.'  ^  ■'.■  -.• 


0 isABS  <  YCEN-YQC ) 

D2=ABS!XCEN-X0C) 

NPJ=NP(J) 

IF  I (Dl.LT, iCRTAB <L. NPJ , 1 ) +0. 5*DW) ) .AND. 

1  (D2.LT. !CRTAB(L,NPJ,1)+0.5*DL) ) )  THEN 

KA=1 

IF  (ID1.LE. !0.5*TN)).ANO. (D2.LE. !0.5*TL)))  KA=2 
QHDTH-AH INI (DN, YCEN+CRTAB (L,  NP  J ,  K  A) ) 

QNDTHSQNDTH-AHAX 1(0., YCEN-CRTAB (L,NPJ ,  KA) ) 
0LNGTH=AHINt(DL,XCEN+CRTA8(l,NPJ,KA)) 
tH.N6TH=0LN6TH-AHAX 1 10. , XCEN-CRTAB ( L, NP J , KA) ) 

OAREA-OLNBTHtONDTH 
AREA=AREA-OAREA 
IF  (AREA.LE.0.)  RETURN 
ENDIF 
10  CONTINUE 
RETURN 
END 

»  LAST  UPDATE  16/2300  JAN  84  FILE:SU8S2.AAP 

SUBROUTINE  CLSTRP(CR«AX,N,XI,YI,CRTAB.LT,NP,TL,TN,CL.CN,XSTAR, 

1  YSTAR, ICSTAR) 

DIMENSION  XI (N) ,Y1 (N) ,CRTAB( 1 1, 6) .AREA (800) , I  SORT (800) , JSORT (300) , 
1  NP  IN) 

XC=0.0 

YC=0.0 

TSXU=CL 

TSYU=CN 

CSTAR*II.0E15 

ICSTAR=N 

* 

*  - DEFINE  AREA(J)*DIFFICULTY  OF  REPAIRIN6  CRATER  J 

*  CHANGED  28  OCT  81  TO  COMPUTE  AREA  OF  SQUARE  CRATERS 

t 

DO  24  J=1,N 

AREA(J)S4.0*CRTAB!IT,NP(J))**2 

24  CONTINUE 

* 

» - SET  UP  FOR  SNEEP 

t 

25  NMN*0 
ISTARTM 
SNEP*1#.E15 
DO  11  J*l,N 

IF  !(YI(J)tCRTAB!LT,NP(J)).6T.YC).AND. 

I  ( Y I ( J ) -CRTAB (IT , NP (0 ) ) , LT. TSYU) )  THEN 

t 

14  IF  (NHIN.E8.0)  THEN 
NNIN=1 
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ISQRT (t)*J 
JS0RT(1)=J 
SO  TO  11 
ENDIF 

« 

!  IT=NMIN 

NMIN=NHINtl 

17  JZ=IS0RT (IT) 

> 

IF  (IXI(J)+CRTAB(LT,MP(J>)>.LT. (XI TJZ) +CRTAB (LT,NP ( JZ) ) ) }  THEN 
ISORT  4IT+1) =ISQRT ( IT) 

IT»IT-1 

IF  HT.ST.i)  BO  TO  17 
IS0RT(1)=J 
ELSE 

18  ISORT  (IM)*J 
ENDIF 

* 

116  IT=NHIN-t 

117  JR=JSQRTiIT) 

i 

IF  ( (YI (J) +CRTAB(LT,NP(J) ) ! .LT. (¥1 ! JR1 +CRTAB (LT, MP1 JR! ) ) !  THEN 
JSQRT  < IT+1) =JSQRT ( IT) 

IT*IT-1 

IF  (IT.GT.0)  60  TO  117 
JSORT(l)=J 
ELSE 

118  JSGRT(IT*l)=4 
ENDIF 

ENDIF 

11  CONTINUE 

* 

*  - EXECUTE  SWEEP 

*  DETERHINE  DIFFICULTY  OF  REPAIRING  CRATERS  TOUCHING  FRAME 

* 

1#  IX-ISTART+1 

AICC-0.0 
ICC=# 

30  IF  UX.LE.NNIN)  THEN 

ON=lSORTtIX) 

IF  t (XI (JW)-CRTAB (LT,NP<JM) > ) . LT. T3XU)  THEN 
AICC*AICC+AREA(JN) 

ICC*ICC+1 

31  IX»IX+1 
60  TO  30 

ELSE 

32  IF  ( (XI (JR) -CRNAX) .LT.TSXUl  THEN 

IX»IX*1 
EO  TO  30 
ENDIF 
ENDIF 
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— COMPARE  REPAIR  DIFFICULTY  FOR  FRAME 

IF  (CSTAR.8T.AICC)  THEN 
CSTARsAICC 
ICSTAR-ICC 
XSTARsIC 
YSTAR=yC 

IF  (C5TAR. L£. i. 0000001 )  THEN 
X  STAR- XST AR+CL 
RETURN 
END  IF 
END  IF 

- HOVE  FRAME 

TEMP- A I CC-CST AR 
ISTART^ISTART+i 
IF  (ISTART.LE.NMIN)  THEN 
IS=ISORT ( I3TART) 

IF  (TEMP.GT.AREAUS))  THEN 
TEMP=TEMP-AREA<IS) 

SO  TO  41 
ENDIF 

IF  (SNEP.GT.AICC)  SNEP=AICC 
TSXU=X I ( I S) +CRTAB <LT, NP I IS) ) +CL+0 . 00000000 1 
IF  (TSXU.LE.TL)  THEN 
M>TSXU-CL 
60  TO  li 
ENDIF 
ENDIF 

-SHEEP  FINISHED 

TENP=SNEP-CSTAR 

JDP=0 

JDP»JDP+1 

IF  UDP.BT.NHIN)  THEN 
XSTAR*XSTAR+CL 
RETURN 
ENDIF 

IS»OSORT<JDP) 

IF  (TEMP.8T. AREA! IS) )  THEN 
TEHP»TEHP-AREA(IS> 

EO  TO  46 
ENDIF 

TSYU=YI  ( IS)  +CRTAB  (LT,  NP  ( IS) )  +CS4+0. 000000001 
IF  ITSYU.BT.TN)  THEN 
XSTAR*XSTAR+CL 
RETURN 


t-VWTXTkiTU'V '."V  WA  <'  -\W,\*X 


ENDIF 

YC=TSYU-CN 
XC=#.0 
TSXU=CL 
SO  TO  25 
END 


SUBROUTINE  flINCW I CRMAXX, N,  X ,  Y , CR, LT , KP, «, H*i, NREP, CUTS f  ATOTAL) 


* 

» 

t 

t 

f 


-HARNETT’S  TAX IN AY  PROGRAM  INSERTED  TO  REPLACE  MINCN  I  OCT  81 
LATEST  VERSION  OF  TAXINAY  23  APRIL  1982 

NC  =  MAX  NUMBER  OF  CRATERS  IN  A  5LBPRQ8LEN 
NSUB  =  MAX  NUMBER  OF  SUBPROBLEMS  TO  BE  SOLVED 
N  =  NUMBER  OF  CRATERS  IN  ENTIRE  PROBLEM 


DIMENSION  lSTARTU001),A<l00>,X(N),YiN),CRU1.6!, 

1  LIST1 (50) , LIST2 (50) , IT (50! , NX (58) , NY (58) , NR (50) , 

2  IREPI50) ,KP(N) , IPSOL (50) , ICQ«P(50) , IBEASI50) 


COMHON/TAXI/NFM.NF.NL 


CRNAX=0.0 
IF  (N.ST.58)  THEN 
NRITE(6,799)N 
CALL  EXIT 
FNDIF 


* 

» 

750 


100 

* 


NREP=0 

ATOTAL=0.0 


SEARCH  FOR  SUBPROBLEMS 


-CHANGED  TO  COMPUTE  AREA  OF  SQUARE  CRATERS  23  GCT  81 


DO  100  J=l,N 

IF  (CRMAX.LT.CR(LT,KP(J)H  CRMAX=CR(LT(KP(Jl) 
AU)M.8*CR(LT,KP(J))*t2 
CONTINUE 


I ST  ART ( 1 ) = 1 

NSUB=l 

NNM=N-1 

DQ  110  0=1, NNM 
JP=J*l 
JM=0 

EL=X(J)+CR(LT,KP(J)) 
EU=X(JP)-CR(LT,KPIOP)) 
IF  UEL+N!.LE.EU)  THEN 


JM=0t1-l 

IF  (0M.SE.1)  THEN 
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- v- y\ 


r»  r»  ]r+.?mjr’±wm£w*  ■* 


IF  n X t JI1>  +CR (LT,KP ( Jff) ) ) . 5T. EL)  EL=X(JmCR(LT,KP(JN>) 
IF  ((X(JN)+CSNAX).ST.EL)  60  TO  101 
ENDIF 

t 

103  JP=JP+1 

IF  (JP.LE.N)  THEN 

IF  (EU.ST. (XUP)-CR(LT,KP(JP)) )!  EU=XUP)-CR(LT,KP(JP) ) 
IF  (EU.BT.  (XtJP)-CRMAXn  60  TO  103 
ENDIF 

* 

115  IF  UEL+Hl.LE.EU)  THEN 

NSUB-NSUB+1 

IF  (NSUB.6T.1000)  THEN 
NRITEU.798) 

CALL  ExiT 
ENDIF 

760  I START  !NSUB)=J+1 

ENDIF 
ENDIF 

110  CONTINUE 

ISTART(NSUB+l)sN+l 

t 

» - SOLVE  SUBPROBLERS 

• 

DO  230  JS=1,NSUB 
NF=ISTART(JS) 

NL=ISTART(JS+1)-1 
NFH=NF-1 
CRHAX«i.0 
DO  5  J=NF,NL 

IF  (CRNAX . LT. CR (LT, KP ( J ) ) )  CRHAX*CR(LT,KP(J)) 

5  CONTINUE 

NC=NL-NFH 
IF  (NC.6T.30i  THEN 
NRITE(A,7?7)NC 
CALL  EXIT 
ENDIF 

770  IF  (NC.LE.2)  THEN 

BFEAS*0.0 
NP=NF+1 

IF  (Y(NF)+CR(LT,KP(NF)).ST.NN-N)  THEN 
IF  (Y(NF)-CR(LT,KP(NF)),6E.N)  SO  TO  122 
8FEAS*BFEAS+A(NF) 

NREP*NREP+l 
IREP INREP) »NF 
ATOTAL*ATOTAL+A(NF) 

IF  (NC.LE.l)  60  TO  230 
IF  (Y(NP)+CR(LT,KP(NP>),LE.NN-M)  60  TO  230 
IF  (Y(NP)-CR(LT,KP(NP)).6E.H)  60  TO  230 
8FEAS*8rEAS+A(NP) 

NREP«NREP+l 
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IREP(NREP)=NP 
ATOT  AL® ATOTAL+fl ( MP ) 

60  TO  236 
END  IF 

IF  (NC.LE.l)  SO  TO  236 
IF  IY(NP)+CR(LT,KP(NP)).LE.NIHi;  SO  TO  236 
IF  IY(NP)-CR(LT,KP(NP>).6E.H)  60  TO  114 
AT0TAL®AT0TAL+A  <«P) 

BFEAS*BFEAS+A(NP) 

NR£P=NREP+i 
IREP(NREP)*NP 
60  TO  236 
XDSX  (NFHUNP) 

YD*Y(NF)-Y(NP) 

DI5T*S8RT ( X0**2+YD**2) -2. 6»CR(LT , KP (MP) 1 

IF  (DIST.SE.N)  SO  TO  236 

IF  < ( (Y(NF)-CR(LT,KP(NF) )) .6E.N) . AND. 

I(Y(NP)-CR(LT,KP(NP))}.6E.N)I  SO  TO  236 
AHIN®A<NF) 

ISAVE=NF 

IF  CA(NF) .6T. A(NP) )  ISAVE=NP 
IF  (A(NF).ST.A(NP))  ARIN=AINP> 

ATOT AL® A  TOTAL+AHIN 
NREP=NREP+1 
IREP(NREP)=ISAVE 
BFEAS=BFEAS+AHIN 
GO  TO  236 

IF  (NC.LE.l!  SO  TO  236 
IF  ( Y (NP) -CR (LT, KP (NP) ) . 6E . N)  SO  TO  236 
IF  (Y(NP)+CR(LT,KP!NP)i.L£. (NN-N))  SO  TO  114 
60  TO  113 
ENDIF 


- CHECK  CLEAR  PATH 


DO  2  J  •  1,NC 
IPS0L(J)*6 
CONTINUE 

CALL  CHECK<IPS0L,IFLAG)X,YlCR,NX,NYfHR,NCJLISTl,LIST2,IT, 
LTf KP|CRHAX,HH.H) 

IF  (IFLA6.LE.6)  SO  TO  6000 

BFEAS*6.6 

SO  TO  266 


■INITIALIZATION  FOR  IMPLICIT  ENUHERATION 


DO  7366  K*1,NC 
IBEAS (K ) =# 
ICGHPIK)*! 
CONTINUE 


JLAST-# 

ITER=0 

NREPC*0 

REP** 

BFEAS-I0.E2# 

i 

» - FORWARD  ROVE 

» 

7000  JIAST*JLAST+1 
IUNDER*JLA5T 
IPSOL (JLAST)*l 
REP*REP+A (NFH+JLAST ) 

* 

#  - TEST  2 

* 

IF  (REP.SE.BFEAS)  SO  TO  7*2* 

* 

*  - TEST  i 

* 

CALL  CHECK ( IPSOL , IFLA6, X,V,CR,WX,WY,WR,NC,LIST1,LIST2, IT, 
1  LT ,  KP ,  CRRA  X ,  M4f  f  H  > 

IF  (IFLAS.LE.f >  SO  TO  7111 
BFEAS*REP 
DO  7031  K*1,NC 
IBEAS(K)  *  IPSOL (K) 

7031  CONTINUE 

« - TEST  6 

7120  IF  INREPC.EQ.JLAST)  SO  TO  70 

# - BACKWARD  HOVE 

NREPMIREPC+ IUNDER-JLAST  ♦  l 
IPSOL(IUNDER)** 

JLAST*IUNDER 

REP=REP-A<NFfWLAST) 

IF  (JLAST.LE.l)  SO  TO  7010 
fl*IUNDER-t 
DO  7040  K*1,H 
L*IUNDER-K 

IF  < IPSOL <L).EB.l)  THEN 
I UNDER8 I UNDER -K 
60  TO  7010 
ENDIF 

7040  CONTINUE 

7010  IF  <JLAST.EO.NC)  SO  TO  7050 
IWLAST+1 
RHIN*10000.0 
DO  70S*  K*H,NC 

IF  (A(NFH+K).LT.RHIN)  RHIN*A(NFH+K) 


39J 


'V  1 


■v 


&  >1 


7040  CONTINUE 
7151  8ND=REP*RNIN 


-TEST  3 


IF  ((8ND.GE.BFEAS).OR.  (JLAST.ES.NO)  SO  TO  mi 

« 

#  - TEST  4 

* 

IF  t IPSOL ( JLAST) . EB. 1 )  SO  TO  7008 
DO  7070  K=1,JLAST 
ICOHP(K) =IPSOL (K) 

7070  CONTINUE 

CALL  CHECKUC0«P,IFLA6.X,y.CR.NX,NY,iiR,NC,LISTl,LIST2!IT, 

1  LT,KP,CRNAX,NN,N) 

t 

*  - TEST  5 

* 

IF  (IUNDER.NEJLAST)  THEN 
HSIUNDER+1 
DO  7080  K=M,NC 
ICQHP (Ki  =  1 
7080  CONTINUE 
ENDIF 

7801  IF  (IFLA8.LE.0)  SO  TO  7020 
60  70  7000 

70  AT0TAL=AT0TAL+8FEAS 

200  CONTINUE 

IF  (8FEAS.ST.0.0)  THEN 
DO  281  1=1, NC 
IF  (IBEAS(I).ST.0)  THEN 
NREP=NREP+1 
IREP(NREP)=NF«+I 
ENDIF 

201  CONTINUE 
ENDIF 

230  CONTINUE 
CUTS*0. 

IF  (NREP.NE.0)  CUTSsFL0A7(NSUB) 

RETURN 

797  FORMAT ( 1H0, 1IX,  49HNUN8ER  OF  CRATERS  IN  5U8PR0SRAH  EXCEEDS  50.  NC 
1  ,15) 

798  FORNAT ( 1H0, 10X , 23HSU8PR0BLEHS  EXCEED  1800) 

799  FORMAT  (1H0,10X,33HNUNBER  OF  CRATERS  EXCEEDS  58,  N=  ,15) 

END 


,4*. 
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*  LAST  UPDATE  16/2381  JAN  94  F!LE:SUBS3.AAP 
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SUBROUTINE  CHECKIIN, IFLflStX,Y,CR,WXfWY.«R,*4C.LISTl.LIST2, IT, 

1  LT,KP,CRNAX,HN,N) 

* 

DINENSION  IN(NC) ,  IT  INC) ,  NX  (NO ,  NY  (NO  ,HR(NO ,  X  (NO ,  Y  (NC) , 

1  CRtll,6),LlSTl(NC),LIST2(NO,KP(NO 

* 

COHHON/T«XI/NFIt,NF,NL 

« 

IFLAS»1 

JT=8 

DO  6  JX*1,NC 
IF  (IN(JX).LT.l)  THEN 
JTSJT+1 
JJaNFN*JX 
NX  ( JT)-X( JJ) 

NY(JT)aY(JJ) 

HR!JT)=CR(LT,KP(JJ)) 

ENDIF 

6  CONTINUE 

IF  (JT.IE.8)  RETURN 
IT (1)=-1 

IF  ((HY(t)-HR(l)).SE.N)  IT(1)=# 

IF  ( (NY ( 1 ) +NR ( 1 ) ) . LE. (MN-N) )  IT(1)*1 
IF  (IT(l).LT.f)  THEN 
IFLA6=0 
RETURN 
ENDIF 
JXal 

18  JX=JX*T 

JXH=JX-1 

IF  (JX.BT.JT)  RETURN 


-CAN  HE  SET  OVER  JX? 

IF  ((NY(JX)+NR(JX)).LE. (NN-N)I  THEN 
IF  (IT(JXH).ST.f)  THEN 


- DO  AN  ’OVER-OVER’ 


XHHMUKJXJ-NRUXl-CRNAX-N 


* - CHECK  BACK 


JTENP*JXN 
JTEHPSJTENP-1 
IF  (JTENP.6T.0)  THEN 


-DOES  AN  ’UNDER’  IHPIN8E  UPON  JX? 


•^■f,  r.  r.i 


*  - TRY  FOR  ’OVER-UNDER’ 

* 

14  JRA6*2 

CALL  BETHNIJXH, JXrJT,JFLA8,HX.KY,HR.LISTllL:ST2fCRHAX,tW,H) 
IF  (JFLA6.8T.0)  THEN 
IT(JX)*# 

60  TO  16 
EN01F 

* 

» - BACKTRACK 

* 

510  JI=JX 

501  JI*JI-l 

IF  (JI.6E.1)  THEN 
IF  (IT(JI).LE.0)  60  TO  301 
JX=JI 
JXN=JX-1 

IF  (JXN.ST.0)  THEN 
IF  <(NY(JX)-HR<JX)).3E.N)  SO  TO  20 
SO  TO  500 
END  IF 

502  IF  ((NYil)-HRIl)).6E.M>  THEN 

IT11)=0 
60  TO  10 
END1F 
ENDIF 

999  IFLA6=0 
RETURN 
BID 


SUBROUTINE  8ET«N<JXN,JX,JT,JFLA6,NX,MY,NR.LIST1.LIST2.CRHAX,MM> 

» 

DINENSION  MX(JT) ,NY(JT),NR(JT> ,LISTl (JT) ,LIST2(J7) 

» 

CQHNON  /TAXI/NFN,NF,NL 

« 

« - (JFLA6.LE.I)  IMPLIES  ’UNDER-OVER’ 

*  (JFLA6.SE. 2)  IMPLIES  ’OVER-UNDER’ 

t 

KFLA6«t 

NL1»1 

LIST 1 ( 1 ) *JX 

NLT*1 

K*JX 

XHIN*NX ( JX) -NR ( JX) -CRNAX-N 

t 

» - CONSTRUCT  ’LIST1’  0F  CRATERS  BEHIND  JX  IMPINGING 

#  DIRECTLY  OR  INDIRECTLY  UPON  IT 

t 

l  KIWXN 
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*  - DETERMINE  IF  KM  IMPINSES  UPON  K 

* 

2  IF  (NX(KM).GE.XMIN)  THEN 
DO  13  IXsl,NLl 

IF  (KM.EB.LISTIUX))  SO  TO  3 
13  CONTINUE 

XD=UX  (K)  -MX  (Kit) 

YD=NY(K)-NY(KM) 

C2S-S6RT ( XD*#2+YD**2) -NR (KM) -NR (K  > 

IF  (DIS.LT.M)  THEN 

IF  ((JFLA6.LE.l).flND.((NY<KN)+NR(KN)).ST.iNN-N)l)  SO  TO  999 
IF  (IJFLA6.6E.2) . AND. ( (NY (KM) -HR (KM) ) .LT.U) )  BO  TO  999 


* 

*- 

* 


-DETERMINE  IF  KM  IMPINGES  UPON  JXN 


XD=UX (KM) -WX ( JXH) 

YD=HY<KM)-NY!JXH) 

DIS=SQRT  (  XD**2+Y8**2)  -NR  (KM)  -NR  (JIM) 

IF  (DIS.LT.H)  GO  TO  999 
TEPP=NX(KM)-NR(KN)-CRMAX-N 
IF  (XHIN.6T.7EHP)  XMIN=TEHP 
NLI=NL1+1 
LIST 1 (NLl ) =KH 
ENOIF 

3  KH=KH-l 

IF  (KN.GT.i)  SO  TO  2 
ENDIF 

4  NLT=NLT+l 

IF  (NLT.LE.NLi)  THEN 
K=LIST1!NLT) 

SO  TO  1 
ENDIF 

t 

t - CONSTRUCT  ’LI5T2’  OF  CRATERS  AHEAD  OF  JXM  IMPINGING 

#  DIRECTLY  OR  INDIRECTLY  UPON  IT 

• 

3  NL2=1 

LIST2(1)=«I1 

NLT*1 

K=JXM 

XNAX’NX (K)  +W  IK)  +CRMAX+N 

t 

*  - DETERMINE  IF  KP  IMPINGES  UPON  K 

• 

7  KP*JX 

8  IF  (NX(KP).LE.XMA:0  then 

DO  19  IX>l,NL2 
IF  (KP.EB.LIST2!IX))  SO  TO  9 
19  CONTINUE 

XD*NX(K)-NXiKP) 
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- 


YD»NY(K)-NY(KP) 

CISsSflRTOD«2+YD**2)-iR(KP)-HRUO 
IF  (DIS.LT.N)  THEN 

IF  ( ( JFLA6 . L£ . 1 ) . AND. ( (NY (KP) -HR (KP) ) . LT .  H) )  SC  TO  99? 

IF  ( (JFLA6.BE.2) .AND. ( (NY (KP)+NR(KP! ) .6T. (NN-N) ) )  SO  TO  999 

t 

*  - DETERMINE  IF  KP  INPINBES  UPON  JX 

i 

YD«NY(KP)-NY(JX> 

DIS*SfiRT (XD**2+YD**2) -NR(KP)-NR(JX) 

IF  (DIS.LT.N)  SO  TO  999 
TEPP=NX(KP)+NR<KPi+CRNflX+N 
IF  (XMAX.LT.TEMP)  XNAX=TEMP 
NL2*NL2+1 
LIST2(NL2)sKP 
END  IF 

9  KP*KP+1 

IF  (KP.LE.JT)  60  TO  3 
ENDIF 

If  NLT=NLT+1 

IF  INIT.LE.NL2)  THEN 
K=LIST2(NLT) 

60  TO  7 
ENDIF 

§ 

« - DETERMINE  IF  LIST1  INPINBES  UPON  LIST2 

• 

lift  DO  31  K131,NL1 
Ll*LISTl(Kl) 

DO  3f  K2*1,NL2 
L2*LIST2(K2) 

0ISHX(L1)-NX(L2> 

DY*NY(L1)-NY(L2) 

0IS*S8RT (DX**2+DY**2) -NR (LI )-NR(L2) 

IF  (DIS.LT.N)  60  TO  999 
31  CONTINUE 
60  TO  2M 
999  KFLA6*# 

2IM  JFLA6«KFLA6 
RETURN 
END 

SUBROUTINE  QVLAP<X,Y,CRTA8,LT,NP,XI,YI,ITL,ITN,KZ,SUM) 

* 

CONNON/RAY2/SQUARE  ( 9M ) ,  CRNAX 

* 

DIMENSION  X(KZ) , Y(KZ) ,CRTA8(1 1,6) ,NP<KZ) 

* 

« - INITIALIZE 
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I-  —  ,  *  .  .»  * -Jf  jMk  ,»  -  »■>  ,  *  P  "•  W 


DO  If  1*1 ,  ITU 
SQUARE! I) af. 

If  CONTINUE 

siai*f. 

SUHP*f. 

* 

*  - FIND  FIRST  AND  LAST  VALUES  OF  1  TQ  CONSIDER 

» 

L3=NAX1 1 1 . ,  (X  ( 1 ) -CRNAX+1 . -if) ) 

L2*HINl  (FLOAT  (ITL) ,  IX  (KD+CRNAX+1.  -X0) ) 

J4*l 

H»l 

2f  LK3 

* 

» - LOOP-ONE  SQUARE  AT  A  TINE  IN  X 

•  L*X  VALUE  AT  TOP  OF  SQUARE 

• 

DO  120  L*L1,L2 
DXPM. 

J6*J6+N 

K=f 

IFtJ6.6T.KZ-)  RETURN 

#  - IF  ALL  CRATERS  HAVE  BEN  CONSIDERED,  RETURN 

*  LOOP-CRATER  BY  CRATER... CONSIDER  ALL  CRATERS  WHICH 

•  COULD  POSSIBLY  INTERSECT  IN  X 

DO  ?f  W«,KZ 

#  - LOCATE  LET  HAND  EDSE  OF  CRATER 

NPI*NP(I) 

X1=X(1)-CRTAB!LT,NPI)-X# 

IF  (Xl.LT.FLQAT(l-t))  SO  TO  3f 
X2*X(I)-CRHAI-X0 
IF  ( X2. BE. FLOAT (L)>  SO  TO  Iff 
IF  (X1.6E.FL0AT <L) )  50  TO  ?f 

t 

, - LEFT-HAND  EDSE  OF  CRATER  LIES  INSIDE  LTH  SQUARE 

« 

DXP*FLOAT (L)-Xl 
60  TO  Bf 

* 

#  - LET  HAND  ED6E  OF  CRATER  IS  BELOW  X-SQUARE 

*  LOCATE  RI6HT  HAND  EDSE  OF  CRATER 

• 

30  Xi»X(I)+CRTAB(LT,NPI)-Xf 

IF  (Xl.LE.FLOAT(L-D)  SO  TO  40 
IF  (Xl.SE.FLOAT (L) )  SO  TO  30 

i 

• - RISHT  HAND  EDSE  OF  CRATER  LIES  INSIDE  LTH  SQUARE 
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* 

DXP=X 1 -FLOAT (Ll+l. 

SO  TO  60 

* 

, - CRATER  I  LIES  ENTIRELY  LEFT  OF  X-SQUARE...NQ  NEED  TO  CONSIDER 

*  THIS  CRATER  ANY  MORE 

t 

4*  X3=X<I)+CRHAX-X0 

IF  (X3.LE.FL0AT  <L-1) )  M=N+i 
SO  TO  91 
30  DXP=1. 

# 

( - CRATER  INTERSECTS  X-S3UARE... CHECK  INTERSECTIONS  IN  Y 

t 

6#  Y 1»Y  < I ) -CRTAB (LT, NPI ) -Y# 

< 

*  - Kl’INDEX  OF  Y-SBUARE  CONTAININS  LONER  EDSE  OF  CRATER  I 

i 

Kl=NAXl(l.fYM.) 

» 

*  - Ol=I  OF  Y-SQUARE  OCCUPIED  BY  CRATER 

« 

Dl>AHINi II . , FLOAT  IK 1 > -Y1 ) 

SQUARE (K1 ) =D 1*DXP+SQUARE !Ki ) 

IF  (Ki.ES.ITN)  60  TO  90 
K1=K1+1 

YI=Y(I)+CRTAB(LT,NP1)-Y0 
K2=NIN0(ITN,  IFIX(YD) 

IF  (K2.EQ.ITN)  60  TO  7# 

D1=Y1-FL0AT(K2) 

t 

*  - LOAD  SQUARE  CONTAINING  TOP  EDSE  OF  CRATER  I 

t 

SQUARE (K2+1 ) =D1*DXP+S8UARE (K2+1 ! 

* 

*  - LOAD  INTERMEDIATE  Y-SQUARES...D1=1. 

* 

71  DO  8S  J*K1,K2 

SQUARE ( J ) =SQUARE ( J ) +DXP 
81  CONTINUE 

98  CONTINUE 

» 

•  - COUNT  SQUARES  THAT  ARE  AT  LEAST  HALF-FILLED 

* 

118  DO  118  J=1,ITN 

IF  (SQUARE(J).5E.8.5)  SU(!P=SUNP+1 . 

SQUARE (J) =8. 

118  CONTINUE 

SUN«SW1»SUHP 

* 

* - IF  THERE  IS  A  SAP  IN  X-VALUES,  SKIP  TO  NEXT  X-VALUE  NEEDED 


IF  (DXP.LE.8.)  THEN 
IF  (H.NE.B)  THEN 
J6PIW6+H 

IF  (J6PH.GT.KZ)  RETURN 
L3=IFIX ( X ( JiPM) -CRMAX-X8) +i 
IF  (L3.ST.L)  80  TO  28 
L3=t+1 
60  TO  28 
ENDIF 
ENSIF 
SUHP=8. 

128  CONTINUE 
RETURN 
END 

HHtHIHHHHIHHtHHHHttHHHHHHiHHHHHHIHHHiHHHI 

*  LAST  UPDATE  14/2288  JAN  84  FILE:SUBS4.AAP 

SUBROUTINE  REPAIR (HXP.KZ, H8, IREPR, CRMAX ,113, NAREA, NCP) 


connoN 

1  ADNU12) 

, SPHTtlS) 

,HXPTCH 

,5I8AD.1(112), 

2  AHIN<3> 

,GPHTAC<15) 

,SIGARP(3i, 

3  APRAI3) 

,BPHTS(15) 

, 5IBASP (3) , 

4  APRRIN13) 

.LIMITS  1 112) 

,NSAHPt 

,SIGCRTi3), 

5  AREPC3) 

,ICRAT<4) 

, PASS (0:32.6) 

,SIGCT5(27) , 

6  AETPI3) 

, ICUT (4,3) 

,PATT(13«34) 

,SIGFIL(27), 

7  C0UNTR1112) 

, IHIT (3) 

,RAPF(112) 

, SIGHTS! 112) , 

9  CRITI 112.2) 

,IPASS(32.2) 

,RCUT(112) 

,SIGNAF(112), 

9  CRTA8I 11,6,2) 

,IPAT(12,4) 

, RHIT (112) 

,SNINA<4), 

k  DECAR (112) 

, IPCUT (3) 

,3APR!4) 

,5NAPFL(3), 

l  DSTR13) 

,SAPRA(4) 

, TBT (112,5). 

2  ENAPFU3) 

,IPU48) 

, SAVE (888, 3) 

,XC(3), 

3  GPADACU5) 

,ISAV(888) 

,S6APR(4) 

,YC(3), 

i  GPA0HU3) 

,ITST(U2,3) 

,5GAPRA(4), 

3  GPADMSdS) 

, I2CUT  <4) 

,S6CRAT(4), 

6  GPAREAU3) 

,KH!3) 

,SGHINA(4) 

NREP=MN8<KZ,IUP) 

IF  (NREP.EQ.8)  RETURN 

Kl=8 

K9*KZ 

KTYP*HQD(IREPR,18) 

IF  (KTYP.8T.8)  THEN 

IF  ( (SAVE (1,3) .IT. FLOAT ( I 13) ) .OR. (KTYP.E3.2) )  THEN 
IF  ! (SAVE 1 1 , 3) . 8T. FLOAT ( 1 13) ) ■ AND . (KTYP , E8. 2) )  RETURN 
DO  18  J*1,KZ 

IF  (SAVE<J,3).6T.FL0ATUI3))  SO  TO  28 
IF  <SAVE(J,3) .LT.FLOAT III3) )  Kt=J 
18  CONTINUE 
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TOl 5TW77 ■  «».  4*  i*  - 1  -.*V  T'J  *■;  »  -j-rj  v 


23  K9=J-1 

ENDIF 
END  IF 

33  K9=«IN#  <K9 , HREP+K 1 ) 

KMM 

IF  (K9.LT.Ki)  THEN 
IF  (KTYP.Efi.21  RETURN 
KI*3 
K9SKZ 
ED  TO  33 
ENDIF 

43  L3IFIX!SAV£(K1,3)*.31) 

SUHR=KH(L)-Ki+1 
IF  (NAREA.Efi.f)  SUHRsANIN!l) 

IF  (K9.LT.KHIU)  THEN 
SUNRsK9-Kl+l 
IF  (NAREA.EQ.3)  THEN 
IF  (SUflR.LE. FLOAT  (KH(l)  -K9) )  THEN 
SUHR=I. 

CALL  QVLAP(SAVE(Kt,l),SAVE(K1.2),CRTAB,ITBT(L,2MSAV(Kli, 

1  xc(L)-crit(l,i),yc(l;.ifix(crit(l,i)), 

2  lFIX(CRIT!Lf2)),X9-Kl+l.SU«R) 

SO  TO  63 

ENDIF 

53  J=K9+1 

Sl)NR=3. 

CALL  OVLAP  (SAVE(J,l)f3AVE<J,2),CRTA8,ITGT(Lf2i,ISAV(Ji. 

1  XC (L) -CRIT (L , i ) -2. tCRNAX, YC (L) -2. *CRNAX , 

2  IFIXfCRIT(L.i)+4. iCRHAX).lFIX(CRIT(Lf2)+4.*CRMAX) , 

3  KH(L)-K9,SUNR) 

SUNR=ANIN(L)-SUHR 

ENDIF 

ENDIF 

63  AREP (L) =AREP (L) +SUNR 

SIGARP (L) =SI6ARP (L) +SUMR**2 
X53HlN3<K9fK.H(D)H 
DQ  73  J=K5,I>!# 

01=K1+J-K5 

SAVE ( J 1 , 1 ) =SAVE ( J , 1 ) 

SAVE ( J 1 . 2) -SAVE ( J , 2) 

SAVE(Jl,3)-SAVE(J,3) 

ISAV(J1)=ISAV(J) 

71  CONTINUE 
K5*K5-Kl 
NREP*NREP-K5 
NXP»NXP-K5 
KZ*KZ-K5 
H3»«3-K5 
DO  93  O’L.NCP 
KH(J)*KH(J?-K5 
9f  CONTINUE 
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v*HU!u»Hf  unxwr  u  p  m  w. 


5T5Tror*y^ji 


IF  ( (NREP.EQ.B) .OR. (KZ.EQ. I) )  RETURN 
IF  (SAV£!K1.3).NE.FL0AT(L)i  THEN 
IF  (KTYP.EQ.2)  RETURN 
U-i 
K9*KZ 
SO  TQ  30 
END  IF 

i 

*  - REPAIR  HITS  ON  APPROACH  FOR  ITH  TARGET  --  IF  APPROPRIATE 

* 

91  00  100  J*K1,KZ 

IF  (SAVE  U.  3).  NE.  FLOAT  (L>)  SO  TO  110 
IFlJ-Kl+l.ST.NREP)  SO  TQ  110 
ITSTTP=ITBT(L.21 
JNPNTP=ISAV(J) 

IF  (NAREA.ES.0)  SU«R=5UHRM . *CRTAB ( I T8TTP . J«PNTP .  1) **2 
100  CONTINUE 
110  K5=J-K1 

BRITEUS,  t»)Kl, IC2, M,J,  (SAVE  !KK,  1),  SAVE  (KK,2), SAVE  (KX, 3), 10C-1, HI) 
90  120  JlsJ.M0 
KK=K1+J1-J 

SAVE  IKK, 1) =SAVE  t J1 , 1 1 
SAVE  IKK, 2) =SAVE ! J 1,2) 

SAVE (KK, 3) =SAVE( J 1,3) 

ISAV!KK)=ISAV(J1) 

120  CONTINUE 

IF  (NAREA.EQ. 1)  SU«R=K5 

NRITEU3, 160)K5 

NREP=NREP-K5 

«XF=«XP-K5 

KZ=KZ-K5 

M0=M0-K5 

L*L+1 

IF  (L.LE.NCP)  THEN 
DQ  130  J=L,NCP 
KH(J)=KH(J)-K5 
130  CONTINUE 
END  IF 

140  IF  ((NREP.EQ.0) .OR. (KZ.EQ. 0) )  RETURN 
IF  (KTYP.EQ.2)  RETURN 
Kl-0 
K9=K2 
SO  TO  30 

150  FORMAT  (AH  K1  *  ,I3,6H  KZ  *  .I3.AH  110  *  , I4.5H  J  *  ,I4.8M(/H,3F1 

12.2!) 

1A0  FORMAT  (40H  NUMBER  OF  CRATERS  FILLED  ON  APPROACH  *  .16) 

END 


SUBROUTINE  RESLTS 
CHARACTER  NAMt»4 
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DIMENSION  PR1 ( 15) , PR2 ( 15) , PR3 ( 1 5) , PR4 ( 15) , PR5 I 15) , PRB ( 15) 


COMMON 


1  ADM1112) 

,8PHT(15) 

,MS(PTCH 

,5IGADMU12), 

2  AMINO) 

, SPHTAC 115) 

,SISARP(3) , 

3  APRAO) 

.SPHTSU5) 

.SISASPO), 

4  APRNINO) 

,LNH1TS(112) 

,NSAMP1 

,SISCRT(3), 

5  AREP13) 

,ICRAT(4) 

,PASS(0:32,6) 

, 5I6CT5 (27) , 

6  ASTP13) 

,ICUT<4,3) 

, PATTI 13, 34) 

,SIBFIL(27), 

7  COUNTS (112) 

, IHIT13) 

,RAPF(112) 

,  SIGHTS ( 1 12) . 

8  CRIT (112,2) 

, IPASS (32, 2) 

,RCUT(112) 

, SIGNAF (112), 

9  CRTABI 1 1,6,2) 

, IPAT (12. 4) 

,RH1T(112) 

,5HINA(4), 

Si  DECAR  (112) 

, IPCUT (3) 

,SAPR(4) 

.SNAPFLOi, 

1  DSTRO) 

,SAPRA!4) 

,TST{112,5), 

2  ENAPFL43) 

,IPL(40) 

, SAVE (800, 3) 

,XC(3), 

3  6PADAC ( 15) 

, ISAVI808) 

, SSAPR (4) 

,YC(3), 

4  SPADN ( 15) 

,ITGT(112.3) 

, SGAPRA (4) , 

5  8PADMSI15) 

, I2CUTI4) 

,5SCRAT(4i, 

&  SPAREA (15) 

,KH(3) 

,S8MINA(4) 

CQNMON/END/NSAHP , NELT, NT6PS. NCP , CRMIN, APPRCN , NAREA 

t 

CONMQN/JOHN/NFLAS1 , NFLA62 ,NMAX. NSAMPR , ZALPH, ERROR , NSAMP2, NFLA83 

t 

NAME*’  NO’ 

SAMPLE.  /FLOAT  (NSAMP) 

SAPPO=FLGAT (NSAMP-1 ) 

DO  10  I*1,NTGPS 
SPAREA  U)*0. 

6PADM(I)=0. 

GPHT(I)=0. 

10  CONTINUE 
CT=0. 

DO  30  1*1, NELT 
IF  (COUNTR(Li.ST.CT)  THEN 
LCOUNT=L 
CT=CQUNTR(L) 

ENDIF 

ITGTSP*ITBT(L,3) 

8PHT I IT8T8P) =6PHT (ITSTBP ) +COUNTR1L! 

6PADH 1 ITSTBP) *GPADH ! ITGTSP ) tADH (L) 

SPAREA ( ITSTBP) *GPAREA (IT8T8P) *TBT(L,4)*TGT(L.5> 

31  CONTINUE 

CONF90*SIBHTS (LCOUNT ) -SANPL*CQUNTR ( LCOUNT) **2 
CONF9MSBRT  (CQNF90/SANPO) 

CONF90=2. 576*CONF90*SQRT ( SAMPL ) 

WRITE ( 13, 2*0) NSAMP . CONF90 , LCOUNT 
CONF90=!,645»CQNF 90/2.376 
NR!TE(!3,250)CONF90 

IF  (NFLA63.E8.1. AND. NSAMP.SE. 200)  WRITE113.490) 
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IB-0 

40  IA=IB+1 

IB*RIN0<1A+14,NELTI 

KH*IB-IA+1 

WRITE (13,260) (K,K=IA, IB) 

DO  50  X=1 , KH 
L=K+IA-1 

PRl(K)=SANPl*CQUNTR(l) 

PR20C)  sSISHTS  (l)  -SA(1PL*COUNTR  (L)  «#2 
PR2(K)*SQRT (PR2IK) /SANPO) 
PR3<K)=SAMPL*AD«(L) 
PR4(K>=S1BADH(L)-SAMPL*ADM<L>**2 
PR4 IK) *SQRT (PR4 (K) /SANPO ) 

51  CONTINUE 

WRITEC 13,270) (PR1(K),K*1,KN) 

UNITE  1 13, 280) (PR2(K) ,K-1,KH) 

IF  (NAREA.EQ.il  NRITE(13,290) <PR3(K> ,K=1,KH) 
IF  (NAREA.EB.i)  WRITE ( 13, 300) (PR4(K> ,K=1,KW) 
WRITE! 13,310) (ITBT (K, 3) ,K=IA,IB) 

IF  (1B.LT.NELT)  SO  TO  40 
WRITE! 13.320) 

IB=0 

48  IA*IB+1 

IB=HIN0(IA+14,NTSPS) 

KH=IB-IA+1 

WRITE! 13, 330) !K.K~IA, IB) 

DO  70  K=1,KN 
L*IC+IA-l 

PR1 !K) =SPHTS !L) ~SAWPL*6PHT (L) »*2 
PR1 IK) =SQRT (PR1 (K) /SANPO) 

6PHT (L)*SARPL#6PHT (l) 

PR2  (K)  -6PADNS  !L)  -SANPl*6PABN(l)  #*2 
PR2(K)*SQRT(PR2(K) /SANPO) 

SPADM ( L ) *SANPL*6PADN (L) 

6PAREA (L) =8PADN (L) /6PAREA (L) 

70  CONTINUE 

WRITE!13,270) (GPHT(K) ,K=IA, IB) 

WRITE( 13, 2S0) (PR1(K),K=1,KN) 

IF  (NAREA.EQ.0)  THEN 
NRITE(13,290MGPADN(K),K*IA,I8) 

WRITE! 13,300) (PR2(K),K*l.KN) 

WRITE! 13,340) (GPAREA(K) ,K*IA, IB) 

ENDIF 

81  IF  (1B.IT.NTSPS)  60  TO  40 
IF  (NCP.8T.I)  THEN 
NRlTE(13,33f)NAflE 
DO  120  1*1, NCP 
PRHl)*SAHP|.*RCUT(l) 

PR1  <2)»SQRT<  (PR1  (l)-PRl  U)**2)  *SAHPU 
PR1  !4)*S16CRT  (U-SANPLtRHIT  (11**2 
PR1(4)*SQRT(PR1(4)/SAHP0) 
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,v» 


«‘;v 


->«  ,<»  »» 


•  X, 


k*  m_*,r  »,*> 


PRl(3)«SA)tft*RHIT{L) 

PR1 (5>  *Sfl»PL*ASTP (L) 
PR1(A>*SI6ASP(L)-SANPL*ASTP<L)m2 
PR1  (6) »SORT  (PR1  (4)  /SAHPC) 

PRt(7)«SANPL»AREP(L) 
PR1(8)*SI6ARP<L)-SAHPL*AR£?(L>m2 
PR1 (8) *$DRT (PR1 (8) /SANPO) 
PR1(12)^I6NAF(L)-SAHPL*RAPF(L)m2 
PR1 ( 12) *SBRT (PR1 ( 12) /SAHPO) 

PR1 ( 1 1 ) *SAHPL*RAPF (L) 

PRl(lf) »SNAPFL (L) -SAHPL*ENAPFL(L) **2 
PR1(10)*S8RT(PR1 (10) /SANPO) 

PR1(9)=SAHPL*ENAPFL(L) 

IF  (NAREA.E0.1)  THEN 
PR1 (5)al.E2f 
PR1(4)*1.E20 
END  IF 

9#  IF  mXPTCH.EQ.#)  THEN 

PR1(7)»1.E20 
PRK8W.E20 
ENDIF 

108  IF  IAPPRCN.LT. 1.)  THEN 

PR1(9)*1.E20 
PRU10)=I.E20 
PR1(11)*1.E20 
PR1(12)=1.E28 
ENDIF 

Ilf  NRITE(13,3AI)L,CRITIL,1),CRIT{L,2),(PR1(K),K=1,12) 

128  CONTINUE 

IF  (NCP.6T.1)  THEN 
WRITE!  13,370 
IEL1=1 
IEL2»2 
NCP1=NCP+1 
DO  170  KJ=1,NCP1 
KKM-KJ 
DO  130  L>1,3 

DSTR(L)  »SANPt*FLOAT  (ICUT(KJ.L)) 

IF  (KK.ST.0)  D5TR(KK)*1.E20 

130  CONTINUE 

PRU 1 )  »SANPL*FLOAT  < I2CUT (KJ) ) 

PR1  (2)*SQRT  (SANPIKPRI U I -PR1  (1)  m2)  I 
PR) (4)=FIQAT (ICRAT (KJ) ) 

PRl(3)»SAHPt*PRl(4) 
PRU4)«SGCRAT(KJ)-SAKPltPRI(4)M2 
PR1 (4)*S8RT (PR1 (♦) /SAHPQ) 

PR1  (3)»SAHPL*SHINA(KJ) 

PR1  (4)«S6HINA(KJ)  -SAHPltSNINA  (KJ)  m2 
PRH4)  »SDRT  (PR1  (4)  /SANPO) 

PR1(7)*SANPI*SAPR<KJ) 

PR1 (8) *SSAPR (KJ) -SAHPL*SAPR (KJ) #*2 
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n  T4  »  .  w.  r.  T. 


PR1 (8)*SCRT (PRI (6) 7SANP0) 

PRJ (9)*SAHPL*SAPRA(KJ) 

PR1 ( if ) =S6APRA(KJ ) -SAHPL*SAPRA  <K J i *#2 
PRI !18)*SflRT !PR1 ( 18) /SAMPQ) 

IF  (NAREA.EB.l)  THEN 
PR1(5)*1.E28 
PR1(6)*1.E28 
END  IF 

141  IF  IAPPRCN.LT. 1.)  THEN 
PR1(7)*1,E2B 
PR1(8)*1.E28 
PRl(9)*l.E28 
PRt(18)*i.E28 
ENDIF 

158  IF  (KJ.LT.4)  THEN 

IF  (KJ.EB.2)  IEL2-3 
IF  (KJ.EB.3)  IEL1*2 

NRITEI 13 , 488) 1EL1 , IEL2, CRIT ( IEL1 . 1 ) , CRIT 1IEL2, 1) , (PRI (K> , 
1  K=l,6) . (DSTR(K) ,K=1,3) , (PRI IK) ,K*7,18) 

IF  (NCP.EB.3)  60  TO  17# 

GO  TO  168 
ENDIF 

168  NRITE(13,388)CRIT(1,1),CRIT<1,2) ,  (PRI  (K),K*1,A), (D5TR(K), 

1  K=lf3),(PRl(K),K*7,18) 

178  CONTINUE 
ENDIF 
ENDIF 

188  IF  (LV.6T.8)  HR1TE< 13, 39#) 

LV=8 

DO  198  L*1,NELT 

IF  ((IT6T(L,1).ES. ll.AND. (CRIT (L,  1  > .LT. t . > )  THEN 
LV*LV+1 
1PL(LV)*L 
ENDIF 

198  CONTINUE 

IF  (LV.6TJ)  THEN 
IB*# 

288  IA*IB+1 

IB*NIN8(IA+14,LV) 

KINIB-IA+l 

kRITE ( 13, 4881 ( IPL (K ) f  K= I A, 18) 

* - NON-ANSI  STANDARD  SUBSCRIPTS  NAY  REQUIRE  ADJUSTMENT. 

NRITE(  13,418)  (TSTdPL(K)  ,3)  ,K*IA,  IB) 

WRITE! 13, 42#) (CRIT(IPL(KI,2),K*IA,IB> 

CO  218  K*l,KN 
L*K*IA-1 
IPU*IPUL) 

PRI (K)»SAHPL*RCUT ( IPLL) 

PR2 IK) *SI6CTS(L) -SANPL#RCUT( IPLL) «2 
PR2 (K) "SORT (PR2 (K) /SANPO ) 

PR3(K)*SAHPL#RHIT(IPLL) 
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vi, 

^'i 

-;.f  I 


PR4(K)*S16FIL(L)”SAMPL*RH1T(IPLL)**2 
PR4(K)=S8RT (PR4(K) /SAHPO) 

PR6(K)»SflMPL*RflPF  < IPLL> 

PR3(K)sSI6NAFI IPLL) -SAMPL*RAPF ( IPLL) **2 
PR5(K)*SQRT(PR5(K) /SAHPO) 

CONTINUE 

NRITE(l3,43i)  (PRl(K),K*t,KM) 

NRITE(13,44I)  <PR2(K),K=t,KM) 

WRITE! 13, 459) (PR3(K),K=1,KM) 

WRITE ( 13, 449) (PR4(K) , K=l , KH) 

IF  (NAREA.Efi.f)  TIEN 
WRITE ( 13,469) !PR6(K),KS1,KN) 

WRITE!  13, 479)  (PR5(K),K*1,KM) 

ENDIF 

IF  (18.LT.LV)  BO  TO  200 
ENDIF 
RETURN 

F0RMAT(1X,’NSANP  =’ ,  15, 5X, ’ CORF  INTERVAL  FOR  99?  LEVEL  =’,F7.3, 
t2X,’F0R  TST  ELT  *’,15) 

FORMAT! 18X,29HC0NF  INTERVAL  FOR  90Z  LEVEL  =,F7.3) 

FORMAT! 1H8, IX, 11HT6T  ELEMENT, 1518) 

FORMAT UX,12HEXP  NO.  H1TS,15F8.3) 

FORMAT !9X,5HSISMA, 15F8.3) 

FORMAT (IX, 12HEXP  AREA  DAM, 1SF8. f ) 

FORMAT (8X,5HSISHA, 1SF8.9) 

FORMAT (2X,11HT6T  BP.  NO., 1518) 

FORMAT ( 1HI, 13HTAR6ET  BROUPS) 

FORMAT ( 1H9, IX, UHTBT  BP.  NO., 1518) 

FORMAT i IX, 12HEXP  PER.  0AN,1SF8.3) 

FORMAT  (lHf,4X,3fHF0R  RUNWAYS  AND  MAJOR  TAXI WAYS, /8X , 3HTBT, 4X , 3HNC 
1L, 2X , 3NHCN, 3X, 4HPR0B, 2X , SNSISMA, 2X , W-EXP  N0,3X,5FSISMA,3X,8HEXP  AR 
2EA, 3X, 5HSIGMA, 3X , 4HEXP  ,A4,3X,5HSISMA,3X,8HEXP  APPR, 3X, 5HSI6NA, 3X, 
38HEXP  APPR,3X,5HSI6HA,/8X,3HELT, 16X,3HCUT,8X,7HCRATERS, 15X.4HFILL, 
413X, 6HFILLED, 12X,7HN0  CRAT, 15X.4HFILL) 
FORMAT(8X,I3,F7.I,F3.I,2F7.3,2FB.3,4X,F7.8,1X,F7.J,4X.F7.0.1X,F7. 
19,3X,F8. 3, 1X,F8. 3, 3X, FB. 9 , 1X,F8. 0) 

FORMAT  (1H8,4X,29HC0M8INED  PROBABILITIES  OF  CUT, /77X, 12HDI5TRIBUTI 
ION, /73X, 16HMIN1MUH  CRATERS, /8X , 3HTST, 4X , 3HNCL, 2X , 3HHCU, 3X , 4HPR0B, 
22X, 5MSI6MA, 2X, 6HEXP  N0,3X,5NSIBMA,3X,8HEXP  AREA, 3X. 5HSIBNA, 4X. 3 (3H 
3ELT, 3X) , 8HEXP  APPR, 3X, 5HSIBNA, 3X , 8HEXP  APPR,3X,5HSISHA,/7X,4HELTS, 
416X,3HCUT,8X, 7HCRATER5, 15X, 4HFILL, 13X , 1H1 , 5X, 1H2, 5X, 1H3, 5X , 7HNQ  CR 
SAT, 15Xf 4HFILL) 

FORMATS, SHiHH^.^FS.i^FT.S^FS.J^FT.MX.FT.MX^iFS.S 
1,IX),1X,2F8.3,3X,2F8.I) 

FORMAT (lHf,4X,18HF0R  MINOR  TAXIWAYS) 

FORMAT (1H#, 13X, 14HTARBET  ELEMENT, 1517) 

FORMAT (16X,12HTARSET  WIDTH, 15F7.9) 

FORMAT (9X, 19HHIN1HUM  CLEAR  WIDTH, 15F7. 0) 

FORMAT ( 3X , 23HEXPECTED  NUMBER  OF  CUTS,15F7.3) 

FORMAT (23X,SHSIBHA, 15F7.3) 

FORMAT !4X, 24HEXPECTED  CRATERS  TO  FILL,15F7.3) 


•  ;  , 'Vv^V-y'.4*.  '"'.VC’ 1 V  ■ 
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468  FORMAT (71 , 21HEXPECTED  AREA  TO  FILL, 15F7.I) 

478  FORMAT (23X , 3HSI6MA, 15F7. 0) 

488  FORMAT  <8X,  1 1 ,  lHJt,  1 1 ,  F7. 8,  F5.  #,2F7 , 3, 2F3. 3, 4X,  F7. 0, 1 X ,  F7,  i5. 3X,  3  (F5. 

13, IX) , 1X,2F8.3,3X, 2F8. 0) 

498  FORMAT 11M  ,’NSAHP  LIMITED  TO  LEAST  OF  VALUE  INPUT  OR  NUMBER  NEEDED 
*  TO  SIVE  SPECIFIED  BUALITY  TO  PROBABILITY  OF  CUT.’) 

END 

i - 

SUBROUTINE  NCOHP 

*  - THIS  ROUTINE  IS  ENTERED  TO  CALCULATE  THE  MINIMUM  SAMPLE  SIZE 

»  OF  MONTE  CARLO  ITERATIONS  TO  SIVE  A  SPECIFIC  CONFIDENCE  LEVEL 

*  AND  INTERVAL  FOR  THE  PROBABILITY  OF  CUTTIN6  A  TAKEOFF 

*  SURFACE.  IT  CANNOT  BE  ENTERED  UNLESS  NFLAS3  IS  SET  IN  MAIN 

«  PR06RAN  AND  NSANP  SPECIFIED  AS  GREATER  THAN  208. 


COMMON 

1  ADM (112) 

, 6PHT ( 15) 

.HXPTCH 

. SI6ADM (112), 

2  AHIN(3) 

, BPHTAC (15) 

,SI6ARP(3), 

3  APRA(3) 

, BPHTS4 15) 

, SISASP (3) , 

4  APRHIN13) 

, LNHITS  <112) 

, NSANP 1 

, SI5CRT (3! , 

3  AREP (3) 

, ICRAT (4) 

, PASS (8: 32, 6) 

,SIBCTS(27). 

6  ASTP<3) 

, ICUT (4,3) 

,PATT(13,34) 

,  SIBFIL (27) , 

7  COUNTR(112) 

, IHIT (3) 

,RAPF(112) 

,  SIGHTS (112) , 

8  CRIT (112,2) 

,IPASS(32,2) 

,RCUT(112) 

, SI6NAF (112), 

9  CRTAB (11,6,2) 

, IPAT (12,4) 

,RHIT(112) 

,5NINA(4), 

6  DECAR (112) 

, IPCUT (3) 

,SAPR<4) 

, SNAPFL ( 3) , 

1  DSTR (3) 

, 5APRA (4 ) 

,TGT(112,5), 

2  ENAPFL(3) 

,IPL(48) 

,SAVE(S88,3) 

,XC(3f, 

3  GPADAC(IS) 

,ISAV(88#> 

,SGAPR(4) 

,YC(3), 

4  GPADH(IS) 

,ITGT(112,3) 

,SGAPRA(4), 

3  GPADHS(IS) 

, I2CUT (4) 

,S6CRAT(4), 

6  GPAREA(IS) 

, KH(3) 

,S6HINA(4) 

CQHHON/END/NSAHP2, NELT, NTSPS, NCP, CRHIN, APPRCM, NAREA 


COMMON/ JOHN/NFLA6 1 , NFLAS2 , NMAX . NSAHPR , ZALPH. ERROR , NSANP , NFLAS3 
DIMENSION  PRO) 

•  - CALCULATE  AND  STORE  IN  A  MATRIX  THE  PROBABILITY  OF  CUT  FOR 

•  EACH  TARGET  ELEMENT,  USING  THIS  PATTERN. 

• 

IF  (NCP.SE.l)  THEN 
IF  (ZALPH.LT. 1.643)  ZALPH-1.643 
IF  ((ERR0R.BT.f.l5).0R. (ERROR. LT. 8. 8881))  ERRQR*8.05 
DO  18  J«l,NCP 
PR ( J ) »RCUT ( J ) /FLOAT ( NS AHP ) 

If  CONTINUE 

• 

• - INITIALIZE  A  LOOP  TO  FIND  THAT  PROBABILITY  OF  CUT  CLOSEST 


•  TO  0.5.  THIS  MAXIMIZES  REQUIRED  SAMPLE  SIZE  FOR  HORST  CASE 

♦  TARGET  ELEMENT  AND  ATTACK. 

t 

SMALL*ABS (PR ( 1 ) -0. 5) 

11*1 

JX*1 

* 

*  - LOOP  TO  FIND  PROBABILITY  OF  CUT  CLOSEST  TO  0.5 

*  AND  RECORD  IT  AS  PKNUN. 

* 

DO  20  J*i,NCP 
SHALLl*ABS(PR(J)-0.5) 

IF  (SMALL1 . LT. SMALL)  THEN 
IX=I 
JI=J 

SMALL=SHALL1 

ENDIF 

20  CONTINUE 

PKNUM*PR(JX) 

NUM=0 

- IF  PKNUM  IS  VERY  CLOSE  TO  ZERO  OR  ONE,  THE  STATISTICS 

COLLAPSE  MONTE  CARLO  ITERATIONS  TO  A  VERY  SMALL  NUMBER. 

THEN  CALCULATION  OF  ADDITIONAL  ITERATIONS  TO  RUN  OR 
RETURN  TO  THE  MONTE  CARLO  LOOP  SHOULD  NOT  BE  COMPLETED. 

THIS  ACCOMPLISHED  BY  SETT1NS  NFLAfil. 

IF  1 (PKNUM. 6T. 0.0009) .AND. (PKNUH.LT. 0.9995) )  THEN 

- CALCULATE  TOTAL  SAMPLE  SIZE  TO  ASSURE  CONFIDENCE  LEVEL 

AND  ERROR  INTERVAL. 

SSIZE=PKNUM*  ( 1. -PKNUN)  #«  ZALPH/ERRQR)  **2. ) 

NUH*SSIZE+l. 

- TEST  IF  MORE  ITERATIONS  REQUIRED,  SETTING  APPROPRIATE  FLAGS 

WHETHER  TO  RETURN  TO  THE  MONTE  CARLO  LOOP.  IF  SO,  SET  LONER 
AND  UPPER  MONTE  CARLO  LOOP  LIMITS. 

IF  (NUN.LE.NSAMP)  THEN 
NFLA61*! 

RETURN 

ELSE 

NSAMPR*NSAMP+1 

NFLAG2M 

IF  (NUH.LT.NHAX)  THEN 
NSAHP*NUH 
ELSE 

NSAHP*NHAX 

ENDIF 

RETURN 
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END1F 
END  IF 
ENDIF 
NFIA61*! 
RETURN 
END 
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Sketch  of  S««pl«  Airfield.  (Aimpolnt*  tncloMd  in  A.) 
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INPUT  FILE:  ILH1  OUTPUT  FILE 


CQNF  INTERVAL  FOR  99Z  LEVEL  =  1.433  FOR  TOT  ELT 
CONF  INTERVAL  FOR  9#Z  LEVEL  -  .913 


CQNf  INTERVAL  FOR  992  LEVEL  =  1.251  FOR  76T  ELT 
CQNF  INTERVAL  FOR  982  LEVEL  *  .798 
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